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FOREWORD 

This  final  report  presents  the  results,  supporting  data, 
and  recommendations  relating  to  an  automatic  test  probe  system 
(Autoprobe  or  AP).^erformed  by  Task  0007,  under  contract 
DAAH  01-81-D-A002r.  The  program  was  identified  as  Project 
1023  by  the  U.S^-^rmy  Missile  Command  at  Redstone  Arsenal, 
Alabama,  ^ 

The  manufacturing  technology  effort  described  by  this 
report  covers  automatic  test  and  fault  isolation  of  digital  hybrid 
microelectronic  devices  (D/HMAs)  used  in  current  and  future 
production  missile  systems.  A  need  for  the  single  automatic 
probe,  or  Autoprobe,  system  was  established  by  high  production 
rate  test  and  fault  isolation  of  D/HMAs  having  complex  LSI, 
microprocessor  devices,  and  large  number  of  I/O  interconnections. 
Hardware  and  software  resulting  from  project  1023  was  further ^ 
to  be  applied  to  the  ATE  svstem  previously  installed  at  Redstone 
Arsenal  u^er  project  R  783242. 

Anoverview  and  objectives  of  project  1023  (or  HFI 
Program)  are  presented  in  Section  1  of  this  report.  Section 
2  describes  the  work  accomplished  and  includes  the  successful 
results  of  the  Industry  Demonstration  for  test  and  fault  isolation 
of  a  D/HAM.  Section  3  contains  recommendations  to  achieve  a 


full  production  type  Autoprobe  system  and  suggested  future 
effort  or  study  towards  necessary  AP  improvements. 

^  r 

^  w  c  if'  f 
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SECTION  I 

PROBE  CONTROL  DRIVER 

REFERENCE:  FINAL  REPORT  SECTION  2,  SUBSECTION  E.l, 

1 .  INTPR  -  AUTOPROBE  INITIALIZER 

2.  MONPR  -  AUTOPROBE  MONITOR/DRIVER 

3.  SERCH  -  TEST  POINT  FILENAME  LOOKUP 

4.  READY  -  WAIT  FOR  AUTOPROBE  READY 

5.  ERROR  -  PROBE  DRIVER  ERROR  HANDLER 


6.  BEROR  -  BUS  ERROR  HANDLER 
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0001  FTN4,L 


0002  PROGRAM  INTPR 

0003  C  =====»======:= 

0  0  04  C 

0005  C  SON  PROGRAM  INTPR  IS  CALLED  BY  FATHER  PROGRAM  PCDRV 

0006  C  ONCE  ONLY.  PCDRV  PASSES  HYBRID  FILE  NAME  VIA  RMPAR  . 

0007  C  INTPR  PASSES  BACK  NORMAL  <1)  OR  ABNORMAL  TERMINATION 

0008  C  (-1)  VIA  PRTN.  IF  ABNORMAL,  BOTH  PROGRAMS  ABORT. 

0009  C 
OOlO  C 

0011  INTEGER  FNAME ( 3 ) , DCB ( 144 ) , BFR ( 13 ) , PARM ( 5 ) 

0012  INTEGER  ASD ( 3 ) , ASE ( 3 ) , AASD ( 3) , AASE ( 3> , BASD ( 3 ) , BASE ( 3 ) 

0013  C 

0014  EQUIVALENCE  ( ASD ( 1 ) , BFR < 8 ) )  ,  < ASE ( 1 )  , BFR ( 1 i >  ) 

no  IS  C 

0016  C.  - KEIi-sIEVE  HYBRID  TABLE  FILE  NAML - 

0  017  C; 

0  018  CALL  RMr'AR  (PAi  n; 

0019  DO  10  1=1,3 

0020  10  FNAhE(I)  =  PARM(I) 

0  021  C 

0(;32  C -  OPEN  HYBRID  TABLE  FILE  - 

0023  C  -  LET  BIT  0  FOR  NON-EXCLUSIVE  OPEN  - 

0  0  2^  C 

0025  lEHR  =  0 

0026  CALL  OPEN  ( DCB , lERR , FNAME , IB) 

0iJ2V''  i"-  (IERR.LT.O)  go  TO  90 

0  0  26  C 

002?  C  -  REAU  AND  SAVE  PuINiS  A  AND  5  - 

0  0  j  (j 

0  0  31  call  READF  (DCB, IEKR ,BFR  ) 

0032  IF  (lERR.LT.O)  CQ  TO  90 

0033  BO  12  1=1,3 

0  0  34  AASI'd)  =  ASDCl) 

0  0  35  12  AASE(l)  =  ASEd ) 

OC  36  C 

0  037  CALL  READF  ( DCB , IEKR , BFR  ) 

0038  if  (lERR.LT.O)  GO  TO  9C 

0039  DU  14  1=1,3 

0040  BACLd)  =  ASI’d) 

0041  14  BASE(I)  =  ASEd) 

0042  C 

0043  C -  PREPARE  I- OR  MONITORING  - 

0  044  C - CHECK  IF  ALL  READY,  SET  AUTO  riOl^E  - 

0045  C 

0046  LU  =  36 

0047  CALL  CLEAR  (LU,1) 

0  048  C 

0049  ITMP  =  0 

0050  lEFLG  =  0 

0051  CALL  READY  (LU,IERR) 

0052  IF  (lERR.NE  0)  CALL  BEROR  ( lER?  ,  ITMP , lEFLG  ) 

0053  IF  (lEFLG.LT.O)  GO  T(3  95 

0054  C 

0055  ITMP  =  0 
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0056  lEFLG  =  0 

0057  20  ICMD  =  2HM0 

0058  WRITE  (LU,120)  ICMD 

0059  120  FORMAT  (A2) 

0060  C 

0061  C  -  RETRIEVE  POINT  A  AND  SEND  COORDINATES  - 

0062  C  -  FORMAT =  AX  <COORD>  AY  <CQORD>  <CR>  <LF>  - 

0063  C 

0064  CALL  READY  <LU,IERR) 

0065  IF  (lERR.NE.O)  CALL  BEROR  ( lERR , ITMP , lEFLG ) 

0066  IF  (lEFLG)  95,30,20 

0067  C 

0068  30  ITMP  =  0 

0069  lEFLG  =  0 

0070  35  ICMl  =  2HAX 

0071  ICM2  =  2HAY 

0072  WRITE  (LU,t35)  ICMi , AASD , ICM2, AASE 

0073  135  FORMAT  <2<A2,3A2)) 

0  074  C 

0075  C  -  RETRIEVE  POINT  B  AND  SEND  COORDINATES  - 

0076  C  -  FORMAT:  BX  <COORD>  BY  <COORD>  <CR>  <LF>  - 

0077  C 

0078  CALL  READY  <LU,IERR) 

0079  IF  (lERR.NE.O)  CALL  BEROR  ( lERR , ITMP , lEFLG ) 

0080  IF  (lEFLG)  95,40,35 

OOBl  C 

0092  40  ITMP  =  0 

0083  lEFLG  =  0 

0084  45  ICMl  =  2HBX 

COBS  I CM2  *  2HBY 

0086  WRITE  (LU,135)  ICMl ,BASD , ICM2, BASE 

0087  C 

0  088  C - SEND  LOAD  HYBRID  COMMAND - 

0  089  C 

0090  CALL  READY  <LU,IERR) 

0091  IF  (lERR.NE.O)  CALL  BEROR  ( lERR , ITMP , lEFLG ) 

0092  IF  (lEFLG)  95,47,45 

0093  C 

0094  47  ITMP  =  0 

0095  lEFLG  ==  0 

0  096  50  ICMl)  =  2HLD 

0097  WRITE  (LLJ,120)  ICMD 

0098  C 

0099  CALL  READY  <LU,IERR) 

0100  IF  (lERR.NE.O)  CALL  BEROR  ( lERR , ITMP , lEFLG ) 

0101  IF  (lEFLG)  95,80,50 

0102  C 

0103  C  -  CLOSE  FILE  THEN  SEND  PROGRAM  STATUS  TO  PAPA 

0  .1  0  4  c 

0105  CO  -'r^-Md)  =  i 

0f(  t:  85  Lhl.l  t  LOSE  (DGB) 

'1107  CALL  I'RTN  (PA^r--) 

'10.;  Call  exec  (6/ 

0  j  G  r_ 

0  .1 1  G  L  -  i:  k  R  0  F  C  (J  N  D 1 1  1  N  ,  A  B  (.)  R  I'  P  R  U :•  R  M - 


{.  r.  *  •. 

!  INT'I-R  (j: 

54  P 

M  MON . 

>  14  DEC.,  1981 

D ,  r  2 

9‘; 

!i.  (  1  , 

1  ■  , 

1 LKP 

0  i  1 3 

IVO 

F  u  V  ^  ■■■  C  / 

‘  ^  . 

f  '  E 

,  ES  ,  "  "  ) 

0114 

CALL  cl,:f 

k  1  L 

L  .1  ) 

0115 

95 

PAI’Mfl>  - 

0116 

GO  TO  BS 

0117 

END 

FTN4 

COMPILER:  HP 92 

060- 

1609Z  P 

lEO  202C  'LH;-*.:*.' 

f.  % 

NO 

WARNINGS  ** 

NO 

ERRORS 

»)*:  PROGRFr-  oCT 
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C  :  t:  SUBROUTINE  BEROR  ( lERRC  ,  lERRP  ,  lEFLG ) 

0119  C  =:==========================*======== 

0120  C 
0121  C 

0122  C - IS  ERROR  FATAL  .j  >  ^  J*"  -  -  ATAL? - 

0123  C 

0124  IF  (lAND  (IERRC,100000B) .NE. 0)  GO  TO  30 

0125  C 

0126  C  -  NON-FATAL,  IS  IT  THE  SAME  AS  PREVIOUS  CODE? 

0127  C 

0128  lERRC  =  IERRC/256 

0129  IF  (lERRC.NE.IERRP)  GO  TO  10 

0130  lEFLG  =  lEFLG  +  1 

0131  GO  TO  20 

0132  C 

0133  10  lEFLG  =  1 

0134  lERRP  =  lERRC 

0135  C 

0136  C  -  PRINT  NON-FATAL  ERROR  MESSAGE  - 

0137  C 

0138  20  WRITE  (1,120)  lERRC 

0139  120  FORMAT  (/"***  NON-FATAL  BUS  ERROR  %  15 ,  "  ***’’) 

0140  C 

0141  C  -  SAME  NON-FATAL  ERROR  3  TIMES?  IF  YES,  ABORT 

0142  C 

0143  IF  <IEFLG.EQ.3)  GO  TO  40 

0144  FAUSt. 

0145  RETURN 

0146  C 

0147  C  -  FATAL,  PRINT  f AIAL  ERROR  MESSAGE  AND  ABORT  - 

0148  C 

0149  30  lERRC  =  IERRC/256 

0150  WRITE  (1,130)  lE.RRC 

0151  130  FORMAT  (./"***  FATAL  BUS  ERROR  ",I5," 

0152  C 

0153  40  lEFLG  =  -99 

0154  CALL  CLEAR  (LU,1) 

0155  PAUSE 

0156  RETURN 

0157  END 
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5158  SUBROUTINE  READY  (LU>IERR) 

Q16Q  C 

5161  C 

5162  INTEGER  MSG<2) 

0163  C 

0164  C  -  DELAY  FOR  500  MILLISECONDS  - 

0165  C 

0166  IRESL  =  1 

0167  IiiULT  =  0 

0168  lOFST  =  -50 

0169  10  CALL  EXEC  ( 12 , 0 , IRESL , IMULT , lOFST > 

0170  C 

0171  C - READY  FOR  DATA?  CHECK  "BUSY**  AND  "ERROR"  BITS 

0172  C 

0173  ICMD  =  2H?? 

0174  WRITE  (LU,100)  ICMD 

0175  100  FORMAT  (A2) 

0176  READ  (LU,110)  MSG 

0177  110  FORMAT  (2A2) 

0178  IF  (lAND  <MSG<1),10000B) .NE.O)  GO  TO  10 

0179  IF  (lAND  <MSG<1) ,2000B) . NE .0)  GO  TO  20 

018  0  C 

0181  lERR  =  0 

0182  RETURN 

0183  C 

01B4  20  ICMD  »  2HSE 

0185  WRITE  (LU,100)  ICMD 

0156  READ  <LU;li0)  MSG 

0187  lERR  =  MSG(l) 

0188  RETURN 

01ti9  END 
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001 

FTN4 

>L 

i0  02 

PROGRAM  HYBRI) 

,10  03 

C 

10  04 

c 

)005 

c 

1006 

IMECEl':  FNAME(3) 

3007 

c 

)008 

c  — 

-  DISPLAY  SELECTION  OF  TASKS  - 

3  0  09 

c 

3010 

10 

WRITE  (1,100) 

3011 

100 

FORMAT  (//"TASKS  FOR  HYBRID  TABLE  FILES", 

3  012 

4i//4X,"l  -  ENTER  FILE",/4X,”2  -  INITIALIZE. 

A, 

3  0  13 

6/4X,"3  -  DISPLAY  FILE  "  , /4X , "4  -  MODIFY  FILE" 

0  014 

6/4X,"5  -  TEST  PROBER ", /4X , "6  -  EXIT  TASKS" 

/> 

3015 

c 

D016 

c  -- 

-  MAKE  A  SELECTION  - 

0  0  1 7 

c 

0  018 

20 

WRITE  (1,120) 

0  (,i  1  9 

120 

FORMAT  ("ENTER  NUMBER  OF  SELECTION:  _" ) 

0  0  2  0 

READ  (i,»)  N 

0  0  21 

IF  (N.LT , 1 ,OR  N.GT . 6)  GO  TO  20 

0  0  22 

IF  (N . EQ  6)  GO  TO  40 

0  0  23 

C 

0  0 : '  4 

WRITE  (1,130) 

0  0 5 

130 

FORMAT  (//"NAME  OF  HYBRID  TABLE  FILE?  _") 

0  0  26 

READ  (1,13'J)  FNAME 

c  o;‘'7 

135 

FORMAT  (3A2) 

GU  T(J  (1,2, 3, 4, 5;  N 
C 

-  -  program  AND  EXECUTE  - 


-»  I  r- 

l  . /:  1  CALL  ENTER  <  ENAHE) 

.  GU  T(j  10 

C 

.  CALL  INI  AD  (FNAnE) 

Sl.  cu  to  10 

0,i7  c 

0  I  iSj  3  CALL  DGALY  (FNAME) 

0'-'>  CO  TO  10 

C  I'  4  !,  L 

n'j4-,  4  CALL  hODFY  (FNAMC) 

a:i4j  CD  TO  10 

0  043  C 

0044  5  CALL  TEST  (FNAMC) 

0045  CU  TO  10 

0046  C 

0047  C  -  EXIT,  NO  MOKE  TASKS  TO  DO  - 

0048  C 

0049  40  WRITE  (1,140) 

0050  140  FORMAT  (//"EXIT  TASKS  FOR  HYDK’ID  TALLE  FILES") 

0051  CA,.L  EXEC  (6) 
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548  SUBROUTINE  ALIGN  ( IXA , lYA, IXB,IYB) 

550  C 

551  C 

552  COMMON  /UALS/  XA , YA , XB , YB ,XM , YM, ABSLP , CDSLP , VFLG ,HFLG 

353  C 

354  INTEGER  VFLG,HFLG 

355  C 

356  XA  =  FLOAT  (IXA) 

357  YA  =  FLOAT  (lYA) 

558  XB  =  FLOAT  ( IXEO 

359  YB  =  FLOAT  (lYB) 

360  C 

361  C  -  CHANGE  PTS  TO  NEU  COORD  SYSTEM  WITH  MIDPT  M  - 

362  C 

363  XM  =  (XA  +  XB)  /  2. 

364  Yrt  =  (YA  +  YB)  /  2. 

365  C 

366  XA  "  XA  -  XM 

367  YA  -  YA  -  YM 

368  XB  =  XB  -  XM 

369  YB  -  YB  -  YM 

370  C 

371  C  -  CHECK  FOR  VERTICAL/HORIZONTAL  REFERENCE  - 

372  C 

373  UFLG  =  0 

374  HFLG  =  0 

375  IF  (ABS  (XA-XB)  LT.l ,0)  GO  TO  10 

376  IF  (ABS  ( YA-YB;  .  LT  .  1  .  0 )  GO  TO  20 

377  C 

37B  C - COMrUTE  SLOPELS  OF  LINE  AB  AND  ITS  PERPENDICULAR  CD 

1,379  C 

38fJ  ABSLP  =  (YA  -  YB)  /  ( XA  -  XB) 

i3Li  CDSLP  =  (XA  -  XB)  /  ( YB  -  YA ) 

382  RETURN 

1303  C 

384  C  -  LINE  AB  IS  VERTICAL,  DETERMINE  PERSPECTIVE  - 

^385  C 

306  10  VFLG  =  1 

i3Q7  IF  (YA.LT.YB)  VFLG  =  -1 

38B  RETURN 

138  9  C 

390  C  -  LINE  AB  IS  HORIZUNTAL,  DETERMINE  PERSPECTIVE  - 

1391  C 

392  20  HI  LG  =  1 

1393  IF  (XA  LT.XB)  HFLG  =  -1 

1394  RETURN 

)395  END 
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SUBROUTINE  SERCH  ( PINWT , BFR ,DCB , lERR ,NUM ) 


ENTER:  PINUT 
DCB 

EXIT:  BFR 

NUM 
lERR 


PIN  SEARCHING 

DISK  CONTROL  INFORMATION  OF  FILE  SEARCHING 

RECORD  OF  PIN  SEARCHED 

RECORD  NUMBER 

ERROR  STATUS  OF  SEARCH 

lERR  =  0  =>  A  MATCH  FOUND 

lERR  =  -12  =>  EOF,  NO  MATCH 

lERR  <  0  =>  FMP  ERROR 

lERR  =  12  =>  STRING  ERROR 


INTEGER  DCB ( 144 ), BFR  <13) ,PINWT(5) 

NUM  =  3 
lERR  =  0 


READ  RECORD.  AT  EOF? 


327  10  CALL  READF  ( DCB , lERR , BFR , 13 , LEN , NUM ) 

328  IF  (lERR.LT.O)  RETURN 

329  C 

330  IF  (BFRd  )  .NE.2H  .  AND  ,  BFR  <  2 )  .  NE  2H  )  GO  TO  20 

331  lERR  =  -12 

332  RETURN 


COMF'ARF.  PIN  NAMES.  M  =  0  =>  A  MATCH 


M  -  JSCOM  <BFR, 1,10, PINWT, 1,IERR) 
IF  ( lERR . LT . 0 )  GO  TO  90 
IF  (M.EQ.O)  RETURN 

NUM  =  NUM  +  i 
GO  TO  10 


REPORT  STRING  ERRORS 


345  90 

346 


lERR  =  99 

RETURN 

END 
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**  NO  WARNINGS  t*  NO  ERRORS  ** 


PROGRAM 


00092 


COMMON 


0  0  0;)  L 
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0296  89  WRITE  (1,189) 

0297  189  FORMAT  (/"TABLE  FILE  MODIFICATIONS  COMPLETED") 

0298  RETURN 

0299  C 

0300  C - REPORT  ERRORS - 

0301  C 

0302  90  CALL  CLOSE  (DCB) 

0303  95  CALL  ERROR  (lERR) 

0304  RETURN 

0305  END 
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0241  WRITE  (1,1S7) 

0242  157  FORMAT  (••X,Y  COORDINATES?*') 

0243  READ  <1,»)  IXC 

0244  READ  <1,»)  lYC 

0245  C 

0246  C  -  CALCULATE  RELATIVE  D,E  COORDINATES  - 

0247  C 

0248  60  BFR(6)  =  IXC 

0249  BFR(7)  =  lYC 

0250  CALL  ALIGN  (IXA , I YA , IXB  ,  I YB ) 

0251  CALL  GETDE  ( IXC, I YC , ASD, ASE ) 

0252  C 

0253  65  WRITE  (l,14fj)  P INAM  ,  BFR  ( 6 )  ,  BFR  (7  > ,  ASD  ,  ASE 

0254  GO  TO  80 

0255  C 
0256  C 

0257  C  ======  DELETE  -  FLAG  THE  RECORD  ====== 

0258  C  -  PIN  NAME  IS  CHANGED  TO  ASTERISKS  - 

0259  C  -  NUMERIC  DATA  IS  RESET  TO  NULLS  - 

0260  C 

0261  70  DO  75  1=1,5 

0262  75  PINAMCI)  =  2H** 

0263  C 

0264  DO  77  1=6,13 

0265  77  BFR<I)  =  0 

0266  C 

0267  C 

0268  C  -  WRITE  MODIFIED  RECORD  TO  FILE  - 

0269  C 

0270  80  CALL  WRITE  (DCB, lERR ,BFR , 13,NUM) 

0271  IF  (lERR.LT.O)  GO  TO  90 

0  272  C 

0273  C  -  MORE  TO  MODIFY  IN  THIS  FILE?  - 

0274  C 

0275  82  WRITE  (1,182) 

0276  182  FORMAT  (/"MORE  TO  MODIFY  IN  THIS  FILE?  _" ) 

0277  READ  (1,122)  N 

0278  IF  (N.EQ.2HY  )  GO  TO  20 

0279  IF  (N.NE.2HN  )  GO  TO  82 

0280  CALL  CLOSE  (DCB) 

0281  C 

0282  C  -  MODIFY  ANOTHER  FILE?  - 

0283  C 

0284  85  WRITE  (1,185) 

0285  185  FORMAT  ("MODIFICATIONS  IN  ANOTHER  FILE?  _" ) 

0286  READ  (1,122)  N 

0287  IF  (N.EQ.2HN  )  GO  TO  89 

0288  IF  (N.NE.2HY  )  GO  TO  85 

0289  C 

0290  WRITE  (1,186) 

0291  186  FORMAT  (/"NAME  OF  NEXT  TABLE  FILE?  _"  ) 

0292  READ  (1,187)  FNAME 

0293  187  FORMAT  (3A2) 

0294  GO  TO  10 

0295  C 
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0186  135  FORMAT  <5A2) 

0187  C 

0188  C - LOOK  FOR  PIN  IN  TABLE - 

0189  C -  IF  FOUND,  CONTINUE  - 

0190  C 

0191  lERR  =  0 

0192  CALL  SERCH  < P INWT , BFR , DCB , lERR ,NUM ) 

0193  IF  (IERR.EQ.-12)  GO  TO  25 

0194  IF  (lERR.NE.O)  GO  TO  90 

0195  C 

0196  IF  (M.EQ.2HD  )  GO  TO  70 

0197  C 

0198  C 

0199  C  ======  CHANGE  -  DISPLAY  RECORD  AND  MAKE  CHANGES  ====== 

t20i)  C -  PIN  NAME?  <CR>  OR  "N"  IF  NO  CHANGE  - 

0201  C  -  X,Y  COORDS?  ANY  2  NEG  NUMS  IF  NO  CHANGE  - 

0202  C  -  D,E  ARE  CALCULATED  IF  X,Y  ARE  CHANGED  - 

02G3  C 

0204  WRITE  (1,140)  P INAM , BF R ( 6 ) , BFR ( 7 ) , ASD , ASE 

0205  140  FORMAT  (/"  P  IN  NAME  “  ,  8X  ,  “X  ”  ,  6X  , Y  "  ,  9X  ,  "D"  ,  7X  ,  "E  "  , 

0206  4//"  ■■,5A2,I9,I7,5X,3A2,£X,3A2> 

0207  C 

0208  WRITE  (1,142) 

0209  142  FORMAT  (/"CHANGE  PIN  NAME?  _" ) 

0210  READ  (1,135)  PINWT 

0211  IF  (PINWT(l)  .t(3.2HN  .  OR  .  PINWT(  1 )  .  EQ  .  2H  •)  GO  TO  46 

0212  C 

0213  DO  44  1=1,5 

0214  44  PINArid)  =  PINWT(X) 

0215  C 

0216  46  WRITE  (1,146) 

0217  146  FORMAT  ("CHANGE  X,Y  COORDINATES?") 

0218  READ  (!,♦)  IXC 

0219  READ  (1,»)  lYC 

0220  IF  (IXC.GE. 0)  GO  TO  60 

0221  GO  TO  65 

0222  C 

0223  C 

0224  C  ======  ADD  -  LOOK  FOR  FIRST  AVAILABLE  RECORD  ====== 

0225  C  -  I.E.  AT  DELETED  RECORD  OR  AT  EOF  - 

0226  C  -  INPUT  DATA  FOR  PIN  NAME  AND  ITS  COORDS  - 

0227  C -  (D,E)  IS  CALCULATED  - 

0228  C 

0229  50  DO  52  1=1,5 

0230  52  PINWT(I)  =  2H** 

0231  lERR  =  0 

0232  CALL  SERCH  ( P INWT , BFR , DCB , lERR , NUM ) 

0233  IF  ( lERR . EQ . -12)  GO  TO  55 

0234  IF  (lERR)  90,55,90 

0235  C 

0236  C  -  ADD  PIN  NAME  AND  X,Y  COORDINATES  - 

0237  C 

0238  55  WRITE  (1,132) 

0239  READ  (1,135)  PINAM 

0240  C 
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0131  SUBROUTINE  MODFY  (FRAME) 

0133  C 
0134  C 

0135  COMMON  /VALS/  XA, YA,XB, YB,XM,YM,ABSLP ,CDSLP ,VFLG,HFLG 

0136  C 

0137  INTEGER  FNAME ( 3 ) ,DCB ( 144 ) ,BFR ( 13 ) , UFLG , HFLG 

0138  INTEGER  PINAM(5),PINUT(5),ASD(3) ,ASE(3> 

0139  C 

0140  EQUIVALENCE  ( P INAM ( i ) , BFR ( 1 ) ) 

0141  EQUIVALENCE  ( ASD ( 1 ) , BFR ( 8 > ) ,  ( ASE( 1 > ,BFR ( 11 > ) 

0142  C 

0143  C -  OPEN  HYBRID  TABLE  FILE  - 

0144  C  -  SET  BIT  0  FOR  NON-EXCLUSIVE  OPEN  - 

0145  C -  SET  BIT  1  FOR  UPDATING  - 

0146  C 

0147  10  CALL  OPEN  ( DCB , lERR , FNAME , 3B ) 

0140  IF  (lERR.LT.O)  GO  TO  95 

0149  C 

0150  C  -  READ  FIRST  TWO  RECORDS  FOR  REF  POINTS  A  AND  B  - 

0151  C 

0152  CALL  READF  ( DCB , lERR ,BFR , 13, LEN , 1 ) 

0153  IF  (lERR .LT.O)  GO  TO  90 

0154  IXA  =  BFR(6) 

0155  lYA  =  BFR(7) 

0156  C 

0157  CALL  READF  ' DCB , lERR , BFR , 13 ,LEN ,2 ) 

0150  IF  (lERR.LT.O)  GO  TO  90 

0159  IXB  =  BFR<6) 

0160  lYB  =  BFR (7) 

0161  C 

0162  C  -  REQUEST  MODIFICATION  -  ADD/DELETE/CHANGE  - 

0163  C 

0164  20  WRITE  (1,120) 

0165  120  FORMAT  (/"MODIFY  -  (A)DD,  (D)ELETE,  OR  (C)HANGE?  _" ) 

0166  KNT  *  0 

0167  READ  (1,122)  M 

0168  122  FORMAT  (A2) 

0169  IF  (M.EQ.2HA  )  GO  TO  50 

0170  IF  (M.EQ.2HD  .0R.M.EQ.2HC  )  GO  TO  30 

0171  GO  TO  20 

0172  C 

0173  C  -  ASK  FOR  PIN  NAME  IF  CHANGING/DELETING  - 

0174  C  -  ALLOW  3  TIMES  FOR  VALID  PIN  NAME  REQUEST  - 

0175  C  -  IF  NOT  FOUND  AFTER  3RD  TIME,  STOP  SEARCH  - 

0176  C 

0177  25  CALL  ERROR  (lERR) 

0178  30  DO  32  I  =  1,5 

0179  32  PINWT(I)  =  2H 

0180  KNT  =  KNT  +  1 

0181  IF  (KNT.GT.3)  GO  TO  82 

0182  C 

0183  WRITE  (1,132) 

0184  132  FORMAT  (/"PIN  NAME?  ") 

0185  READ  (1,135)  PINWT 
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0106  SUBROUTINE  SERCH  < FNAME , SLEN, STRG , lERR , BLEN , BFR ) 

0107  C  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =!  =  =:===  ===:  =  =  =  =  =!=:  =  =  =  =:  =  =  =  =  =  =  =  =  = 

0103  C 

0109  C  ENTER:  FNAME  -  NAME  OF  FILE  TO  BE  SEARCHED 

0110  C  STRG  -  STRING  SEARCHING  IN  FILE 

0111  C  SLEN  -  LENGTH  OF  STRING 

0112  C  BLEN  -  LENGTH  OF  RECORD  IN  FILE 

0113  C  EXIT:  lERR  -  ERROR  STATUS  OF  SEARCH 

0114  C  lERR  =  0  =>  A  MATCH  FOUND 

0115  C  lERR  =  -12  =>  EOF,  NO  MATCH  IN  HYBRID  FILE 

0116  C  LEN  =  -i  =>  EOF,  NO  MATCH  IN  SPOOL  FILE 

0117  C  lERR  <  0  =>  FMP  ERROR 

0118  C  lERR  =  12  =>  STRING  ERROR 

0119  C  BFR  -  FILE  RECORD  OF  STRING 

0120  C 

0121  C 

0122  INTEGER  FNAMtKS) ,DCB(144) ,BFR(40) , BLEN , STRG ( 5 ) ,SLEN 

0123  C 

G124  C -  OPEN  FILE  TO  BE  SEARCHED  - 

0125  C  -  SET  BIT  0  FOR  NON-EXCLUSIUE  OPEN  - 

0126  C 

0127  CALL  OPEN  ( DCB , lERR , F NAME , IB ) 

0i:.^8  IF  (lERR.LT.O)  RETURN 

0129  C 

0130  C - INITIALIZE  FOR.  SEL'ARCH - 

0131  C 

0132  NUM  =  3 

0133  lERR  =  0 

0134  10  DO  IS  I=:1,4C 

0135  15  BFR(I)  =  2H 

0136  C 

0137  C - READ  RECORD.  AT  EOF'/ - 

01 3d  C 

0139  CAi_L  RE  ADI-  (  DCD ,  lERR  ,  BFR  ,  BLEN ,  LEN ,  NlJh  > 

:J14D  IF  (IFRR.LT.O)  GO  TO  30 

0141  IF  (LEN.EQ.-l  .ANI).BLEN,E0.40)  GO  TO  20 

0142  IF  (BF R(l) .EG .2H  . AND . BF R ( 2 ). EQ . 2H  . AND . BLEN . EQ . 13 )  Gj  TO  2u 

0  143  C 

0144  C - COM!' ARE  FIN  NAMES.  M  =  0  =>  A  MATCH - 

0145  C 

0146  M  =  JSCOH  (  STRG,  i,  SLEN,  BFR,  l,IF;ki;:) 

0147  IF  (lERR.LT.O)  GO  TO  90 

0148  IF  (M.EG.O)  GO  TO  30 

0149  C 

0150  M  -•  JSCOP,  (STRG,2,SLEN- 1  ,BFK  ,  1  ,  lERR  ) 

0151  IF  ( lEfyR  .  LT  .  0  )  GO  TO  90 

0iS2  IF  (M.EQ.O)  GO  TO  30 

0153  C 

0154  NUM  =  NUM  +  1 

0155  GO  TO  10 

0156  C 

0157  C  -  NO  MATCH  AT  EOF/A  MATCH,  CLOSE  FILE  AND  RETURN  - 

0158  20  lERR  =  -12 

0159  30  CALL  CLOSE  (DCB) 

0160  RETURN 
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0053  SUBROUTINE  ERROR  <IERR) 

0054  C  =============*========= 

0  055  C 
0  056  C 

0057  IF  (lEkR  .EGI.-12)  GO  TO  30 

'.C58  IF  (IEKR.Ea.99)  GO  TO  20 

0  059  C 

"06'’  WRITE  (1,3.10)  lERR 

:/:i  iiO  f-MF  ERROR  **'"> 


!.•  ■■■  ,  :i  6 1  / 

'  ■  j.;’  C,i  AC  1  Ll\  ( b  3  Ik  PIN  NAhE 


r  i  -  I 


00/ 1  Lr,.; 


F T  N CD Ki i  '  1 L E i''  ■■  H i  9 2  0  6  0  ■■  1  Vi >  c.  K  '/  . 


**  kO  WfRNINGO  NO  ERRORS  RRuG'-'A' 
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0056 

C 

0  0  57 

c - 

-  POSITION  REFERENCE  POINT  B  - 

0053 

c - 

-  STORE  DITTO  IN  RECORD  *2,  WORDS  8-13  - 

0  0  59 

c 

0060 

CALL  READY  (LU,IERR) 

0061 

I-  (lERR.NE.O)  CALL  BEROR  ( lERR , ITMP , lEFLG ) 

0062 

IF  (IEFLG.lt. 0)  GO  TO  95 

0063 

WRITE  (LU,115) 

0064 

30 

WRITE  (1,130) 

0065 

130 

FOkMAT  (/"POSITION  REFERENCE  POINT  B  -  " ) 

0066 

C 

0067 

ITMP  =  0 

006B 

lEFLG  =  0 

0069 

33 

CALL  GETAB  ( LU , ASX , ASY , lERR ) 

0  0  7  0 

IF  (lERR.NE.O)  CALL  BEROR  ( lERR , ITMP , lEFLG ) 

0071 

IF  (lEFLG)  95,34,33 

0072 

C 

0  073 

34 

CALL  REhDF  (DCB,IERR,PFR,i3,LEN,2) 

0074 

IF  ( lERR . LT  .  0 )  GO  TO  90 

0  075 

C 

0076 

DO  35  1=1,3 

0  077 

BFR(I-»7)  =  ASX(I) 

0078 

35 

BFR(I+10)  =  ASY(I) 

0079 

CALL  WRITF  ( DCB , lERR ,BFR , 13, 2) 

0080 

IF  (lERR.LT.O)  GO  TO  90 

ooai 

C 

0082 

c - 

-  CLOSE  FILE  AND  RETURN  - 

0083 

c 

0084 

70 

CALL  CLOSE  (DCB) 

0085 

WRITE  (1,170) 

0  0  86 

170 

FORMAT  (/"INITIALIZATION  OF  TABLE  FILE  COMPLETED") 

0087 

RETURN 

0  0  88 

C 

0  0  89 

C - 

-  REPORT  ERRORS  - 

0  090 

C 

0091 

90 

CALL  ERROR  (lERR) 

0  0  92 

CALL  CLEAR  (LU,1) 

0093 

95 

CALL  CLOSE  (DCB) 

0094 

RETURN 

0  095 

END 

FTN4  COMPILER:  HP92060-i6092  REV.  2026  (800423) 

»»  NO  WARNINGS  **  NO  ERRORS  PROGRAM  =  00543  COMMON  =  00000 
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0001  FTN4,L 


0002  SUBROUTINE  INTAB  (FNAME) 

0003  C  ===================*==== 

0004  C 
0005  C 

0006  INTEGER  FNAME ( 3 ) , DCB ( 144 ) ,BFR ( 13 ) , UFLG ,HFLG , ASX (3 ) , ASY ( 3 

0007  C 
0008  C 

0009  C -  OPEN  HYBRID  TABLE  FILE  - 

0010  C  -  SET  BIT  0  FOR  NON-EXCLUSIUE  OPEN  - 

0011  C -  SET  BIT  1  FOR  UPDATING  - 

0012  C 

0013  CALL  OPEN  < DCB , lERR , FNAME , 3B > 

0014  IF  (lERR.LT.O)  GO  TO  90 

0  015  C 

00 16  C -  SET  LU  FOR  IEEE  488  BUG  - 

0017  C  -  SEND  DEVICE  CLEAR,  SET  MODE  TO  MANUAL  - 

0018  C 

0019  LU  =  36 

0020  CALL  CLEAR  (LU,i) 

0021  C 

0  022  CALL  READY  (L'J,IERR) 

0023  IF  (lERR.NE.O)  GALL  BEROR  ( lERR , ITMP , lEFLG ) 

0024  IF  (lEFLG.LT.O)  GO  TO  95 

002S  WRITE  (LU,li7) 

0026  117  FORMAT  ("M2") 

0  027  C 

0028  C  -  POSITION  REFERENCE  POINT  A  - 

0029  C  -  STORE  COORDINATES  IN  RECORD  *1,  WORDS  8-13  - 

0030  C  -  SEND  MOVE  COMMAND  TO  (0,0)  TO  ALLOW  JOGGING  - 

0031  C  -  JOG  PROBE  TO  THE  POINT  AND  REQUEST  POSITION  - 

0  032  C 

0033  call  READY  (LU,IERR) 

0  034  II-  (lERR.NE.O)  CALL  BEROR  ( lERR  ,  ITMP  ,  lEFLG  ) 

0035  IF  (lEFLG.LT.O)  GO  TO  95 

0036  WRITE  (LU,11S) 

0037  115  FORMAT  (  "XO 0 0 0 0 YO 0 0 0 0  "  ) 

0  0  38  L 

0039  20  WRITE  (1,120) 

0040  120  FORMAT  (/"POSITION  REFERENCE  POINT  A  -  ") 

0  0  41  C 

0042  ITMP  =  0 

0043  lEFLG  =  0 

0044  23  CALL  GETAB  ( LU , ASX , ASY , lERR ) 

0  045  IF  (lERR.NE.O)  CALL  BEROR  ( lERR  ,  ITflP  ,  lEFLG ) 

0046  IF  (lEFLG)  95,24,23 

0047  C 

0048  24  CALL  READP  ( DCB , lERR , BFR , 13 , LEN , 1 ) 

0049  IF  (lERR.LT.O)  GO  TO  90 

0050  C 

0051  DO  25  1=1,3 

0052  BFR (1+7)  =  ASX(l) 

0053  25  BFR(I+i0)  =  ASY(I) 

0054  CALL  WRITF  ( DCB , lER R , BFR , 13, 1 > 

0055  IF  (lERR.LT.O)  GO  TO  90 
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0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 


CALL  CLOSE  <DCB) 

WRITE  (1,185) 

FORMAT  (/"TABLE  FILE  DATA  ENTRY  COMPLETED") 
RETURN 


REPORT  ERRORS 


CALL  CLOSE  (DCB) 
CALL  ERROR  (lERR) 
RETURN 
END 


FTN4  COMPILER:  HP92060-16092  REU.  2026  (800423) 


**  NO  WARNINGS  *»  NO  ERRORS  PROGRAM  =  00628 


COMMON  -  00000 
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0  064  C 

0065  WRITE  (1,150) 

0066  150  FORMAT  (/“ENTER  POINT  B  COORDINATES”) 

0067  READ  (1,#)  IXB 

0068  READ  (1,«)  lYB 

0069  BFR(6)  =  IXB 

0070  BFR(7>  =  lYB 

0071  C 

0072  CALL  URITF  ( DCB , lERR ,BFR ) 

0073  IF  (lERR.LT.O)  GO  TO  90 

0074  C 

0075  C  -  DETERMINE  NEW  COORDINATE  SYSTEM  - 

0  076  C 

0077  CALL  ALIGN  ( IXA , lYA , IXB , lYB ) 

0  078  C 

0079  C  -  NOW  INPUT  DATA  FOR  HYBRID  NODE  POINT  C 

0030  C  -  RECORD  FORMATt  WORDS  1-5  PIN  NAME  IN  ASCII 

0001  C  -  WORDS  6-7  ABSOLUTE  COORDS  IN  INTEGER 

0082  C  -  WORDS  8-13  RELATIVE  COORDS  IN  ASCII 

0  083  C 

0084  DO  80  KNT=1,N 

0085  C 

0086  WRITE  (1,160) 

0087  160  FORMAI  (/"ENTER  PIN  NAME  AND  ITS  X,Y  COORDINATES") 

0088  READ  (1,165)  PINAM 

0089  165  FORMAT  (5A2> 

0090  READ  (i,)K)  IXC 

0091  READ  (1,*)  lYC 

0  092  &rr'::(6)  =  IXC 

0093  BFR(7)  =  I YC 

0  0  94  C 

0095  C  -  CALCULATE  RELATIVE  POINT  (D,E)  - 

0096  C 

0097  CALL  GETDE:  ( IXC,  IYC,ASD,ASE) 

0  098  C 

0099  C - WRITE  DATA  TO  FILE - 

0  1 0  0  C 

0101  CALL  WRITF  ( DCB , lERR , BFR ) 

0102  IF  (lERR.LT.O)  GO  TO  90 

0103  C 

0104  DO  75  1=1,5 

0105  75  BFR(I)  =  2H 

0106  80  CONTINUE 

0107  C 

0108  C  -  INITIALIZE  THE  REST  OF  FILE  WITH  PLANKS  AND  ZLROES  - 

0109  C 

0110  DO  82  1=6,13 

0111  82  BFRd)  •■=  0 

0112  C 

0113  DO  85  I=N+1,N+100 

0114  CALL  WRITF  ( DCB  , lERR  , BFR ) 

0115  IF  ( lERR . LT . 0 . AND . lERR .NE. -12)  GO  TO  90 

0116  85  CONTINUE 

-0117  C 

0118  C  -  DONE,  CLOSE  FILE  AND  RETURN  - 
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0009  SUBROUTINE  ENTER  <FNAME) 

0  010  C  ===  ====:==:=:========  =  =:==== 

0011  c 

0012  C 

0013  COMMON  /VALS/  XA , YA , XB , YB ,XM , YM , ABSLP , CDSLP , VFLG, HFLG 

0014  C 

0015  INTEGER  FNAME(3) ,DCB<144) ,SIZE(2) ,BFR ( 13) 

0016  INTEGER  P INAM < 5 ) , ASD (3 ) , ASE < 3 ) , VF LG , HFLG 

0017  C 

0018  EQUIVALENCE  < P INAM ( 1 ) , BFR ( 1 ) ) 

0019  EQUIVALENCE  (ASD( i ) ,BFR (8)  ) ,  ( ASE ( i  )  ,BFR ( 11  )  ) 

0020  C 

0021  C  -  CREATE  HYBRID  TABLE  FILE,  TYPE  2 

0022  C  -  (NUMBER  OF  NODES  +  100)  RECORDS/FILE,  13  WORDS/RECORD 

0023  C  -  STORE  ON  CARTRIDGE  18  FOR  NOW 

0  024  C 

0025  WRITE  (1,110) 

0026  110  FORMAT  ("NUMBER  OF  HYBRID  NODES  IN  THE  FILE?  *' ) 

0027  READ  (1,»)  N 

0028  C 

0029  SIZE(2)  =  13 

0030  SIZE(l)  *  (3IZE(2)  *  (N+iOO))  /  128 

0031  ICR  =  -18 

0032  C 

0033  CALL  GREAT  ( DCB, lERR ,FNAME, SIZE , 2 , 0 , ICR ) 

0034  IF  (lERR.LT.O)  GO  TO  95 

0035  C 

0036  C  -  INPUT  DATA  FOR  REFERENCE  POINT  A 

0  037  C - RECORD  tl  FORMAT.-  WORDS  1-5  "A" 

0038  C  -  WORDS  6-7  COORDINATES  IN  INTEGER 

0039  C -  WORDS  8-13  NULLS  (SET  IN  INTAB) 

0  040  C 

0041  BFR(l)  =  2HA 

0  0  42  DO  20  1=2,  S 

0  043  20  BFR  (I)  =  21-1 

0044  C 

0045  WRITE  (1,130) 

0046  130  FORMAT  (/"ENTER  POINT  A  COORDINATES") 

0047  READ  (1,»)  IXA 

0040  READ  (1,«)  lYA 

0049  BFR(6)  =  IXA 

0050  BFR(7)  =  lYA 

0051  C 

0052  BFR(e)  =  2H  0 

0053  BFR (11)  =  2H  0 

0054  DO  40  1=9,10 

0  055  BFR(I)  =  2H0(i 

0056  40  BFR(I+3)  =  2H00 

0057  C 

0058  CALL  WRITF  ( DCB , lERR , BFR  ) 

0059  IF  (lERR.LT.O)  GO  TO  90 

0060  C 

0061  C  -  DITTO  FOR  REFERENCE  POINT  B  IN  RECORD  *2  - 

0  062  C 

0063  BFR(l)  =  2HB 
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0001  FTN4,L 

0002  BLOCK  DATA  VhLS 

0003  C  =  =  =  =  =  =  =  =  =  ==r:  n:r.=:: 

0004  C 
0005  C 

0006  COMMON  /VALS/  XA ,  YA  ,XB ,  YB ,XM ;  YM  ,  ABbLi^  ,  CDSLP  ,  VFLG  ,HFLG 

0007  INTEGER  VFLG,HFLG 

0008  END 


nN4  COMPILER;  HP92060-16092  REV.  2026  (B00423) 
»)t<  NG  WARNINGS  NO  ERRORS 


BLOCK  COMMON  VALB  SIZE  =;  00018 
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0396  SUBROUTINE  GETDE  ( IXC , lYC , ASD , ASE ) 

0398  C 
0399  C 

0400  COMMON  /UALS/  XA , YA ,X& , YB ,XM , YM , ABSLP , CDSLP , VFLG ,HFLG 

0401  C 

0402  INTEGER  ASD ( 3 ) , ASE < 3 ) ,DTMP (4 ) , ETMP ( 4 ) , UFLG , HFLG 

0403  C 

0404  C  -  CALCULATE  HYBRID  POINT  (D,E)  - 

040S  C 

0406  XC  =  FLOAT  <1X0 

0407  YC  =  FLOAT  (lYC) 

0408  CALL  CALDE  <XC,YC) 

0409  C 

04.ro  C - CONVERT  TO  ASCII  SNNNNN .  0  FORMAT 

0411  C -  ( - )  RETURN  THIS  TO  STORE  IN  FILE 

0  412  C 

0413  CALL  CODE 

0414  WRITE  (DTMP,10ti)  XC 

0415  CALL  CODE 

0416  WRITE  <ETMP,iOO)  YC 

0417  100  FORMAT  (F8.1) 

0418  C 

0419  DO  10  I  =  1,3 

0420  ASI)(  I  )  =  DTMP  <  I ) 

0421  10  ASE(I)  =  ETMP(I) 

0422  C 

0423  C - NOW  CHANGE  LEADING  BLANKS  TO  ZEROES  KEEF'ING  SIGN - 

0424  C 

0425  CALL  ZERDE  (ASD) 

0426  CALL  ZERDE  (ASE) 

0427  RETURN 

0423  END 
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I  if  I, II 


SECTION  II 


AUTOPROBE  UTILITY  PROGRAM 

REFERENCE:  FINAL  REPORT  SECTION  2,  SUBSECTION  E.4, 

1.  HYBRD  -  UTILITY  FUNCTION  SELECTION 

2.  ENTER  -  CREATE  NEW  HYBRID  NODE  FILE 

3.  INTAB  -  INITIALIZE  A,  B  REFERENCE  POINTS 

4.  DSPLY  -  DISPLAY/PRINT  HYBRID  NODE  FILE 

5.  MODFY  -  HYBRID  NODE  FILE  EDITOR 

6.  TEST  -  AUTOPROBE/NODE  FILE  INTERACTIVE  TEST 
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OOOi  FTN4,L 

0002  PROGRAM  MONPR 

0003  C  =  =  *  =  =  =  =  =  ==:=:=  = 

0004  C 

0  0  05  C  SON  PROGRAM  MCINPR  IS  CALLED  BY  FATHER  ROUTINE  MATCH 

0006  C  AFTER  *1  SON  INTPR  IS  EXECUTED.  MONPR  IS  CALLED 

0007  C  EVERY  LOOP  OF  THE  HYBRID  TEST  UNTIL  IT  IS  COMPLETED. 

0008  C  MATCH  PASSES  HYBRID  FILE  NAME  VIA  RMPAR.  MONPR 

0009  C  PASSES  BACK  PROGRAM  TERMINATION  STATUS  VIA  PRTN. 

0010  C  STATUS  >  0  =>  CONTINUE  TESTING  HYBRID 

0011  C  STATUS  <  0  =>  ABNORMAL  TERMINATION,  ABORT 

0012  C 
0013  C 

0014  INTEGER  HNAME( 5 > , MNAME( 3 ) , BFR ( 40 ) , PARM ( 5 ) , SPARM ( 16  ) 

0015  INTEGER  ASD < 3 ) , ASE < 3 ) , STROP ( 3 ) , STRGR ( 4 ) , STRG ( 5 ) 

0016  C 

0017  EQUIVALENCE  ( ASD < 1) , BFR ( 8 ) ) ,  ( ASE ( 1) , BFR < 1 1 )  ) 

0  018  C 

0019  DATA  MNAME  /2HSP , 2HLH ,2HBD/ 

0020  DATA  STRGP  /2H  P , 2HRQ , 2HBE/ ,  STRGR  /2H  R , 2HEP , 2HRO , 2HBE/ 

0021  DATA  SPARM  / 0 , 0 , 2HSP , 2HLH , 2HBD , 0 , 0 , 0 OB , 423B , 1 0 , 0 , 0 , 0 , 0 , 0 , 0/ 

0  022  C 

0023  C  -  RETRIEVE  HYBRID  TABLE  FILE  NAME  - 

0024  C 

0025  CALL  RMPAR  <PAKM) 

0026  DO  10  1=1,3 

0027  10  HNAMLCI)  =  PARM(I) 

0  029  C 

0029  C  -  SEARCH  FOR  "PROBE"  MESSAGE  IN  SPOOL  FILE  - 

0  0  30  C 

0031  CALL  SERCH  (MNAME, 6 , STRGP , lERR  ,40 , BFR  ) 

0032  IF  (lERR .EQ.-i2)  GO  TO  20 

0033  IF  (lERR.NE.O)  GO  TO  90 

0034  GO  TO  30 

0  0  35  C 

0036  C  -  SEARCH  FOR  "REPROBE"  MESSAGE  IN  SPOOL  FILE  - 

0037  C 

0038  20  CALL  SERCH  < MNAME ,8 , STRGR , lERR , 4 0 , BFR ) 

0039  IP  (lERR.NE.O)  GO  TO  90 

0040  C 

0041  C  -  "PROBE’V'REPROBE"  FOUND,  LOOK  FOR  PIN  NAME  - 

0042  C  -  I.E.  LOOK  FOR  A  "U"  IN  MSG  - 

0043  C 

0044  30  DO  35  1=1,40 

0045  lUl  =  lAND  (BFRd)  ,177400B)  +  40B 

0046  IF  {IUi.EQ.2HU  )  GO  TO  40 

0047  IU2  =  lAND  (BFR(I),377B)  +  2000()B 

0048  IF  (IU2.EQ.2H  U)  GO  TO  40 

0049  IF  (BFRd)  .Eq.2HGN  OR  .BFR(I)  EQ.2H  G)  GO  TO  40 

0050  IF  (BFRd)  .EQ.2HVC. OR. BFRd)  .EQ.2H  V)  GO  TO  40 

0051  35  CONTINUE 

0052  lERR  =  98 

0053  GO  TO  90 

0  054  C 

0055  C  -  PIN  NAME  FOUND,  SEARCH  IN  HYBRID  TABLE  FILE  - 
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0056  C 

3057  40  DO  45  J=i,5 

3058  45  STRG(J)  =  6FR(I+J-1) 

3059  C 

3060  CALL  SERCH  < HNAME , i 0 ,STRG, lERR , 13 , BPR ) 

3061  IF  (lERR.NE.O)  GO  TO  90 

3062  C 

3063  C - FIRST  RECREATE  LINK  BETWEEN  LIJ  *63  AND  FILE  SPLHBD  — 

3  0  64  C 

3065  CALL  SPOPN  < SPARn , I SLU ) 

0066  lERR  =  97 

3067  IF  (iSLU.LT.O)  GO  TO  90 

0063  IF  (I3LU.NE.63)  GO  TO  90 

3  069  C 

3070  C  -  NAME  FOUND  IN  TABLE,  SEND  PIN  COORDINATES  OVER  408  BU 

0071  C  -  FORMAT:  D  <+/->  <COORD>  E  <+/->  <CDDRD>  <CR>  <LF,' 

[)C72  C 

0  0  73  LU  =••  36 

0  0  74  C 

0075  IThP  =  0 

0076  lEFLG  =  0 

0077  CALL  READY  <LU,IERR) 

0  078  IF  (lERR.NE.O)  CALL  BEROR  ( lERR , ITMP , lEFLG  ) 

0079  IF  (lEILG.LT.O)  GO  TO  95 

0  080  C 

0081  ITMP  =  0 

0  0  82  lEFLC;  =  0 

0083  60  ICMl  =  2HD 

0  01.34  I  CHE  =  2HE 

0085  WRIT!-  (LU,160)  ICMi  ,  ASD ,  ICM2 ,  ASE 

0086  160  FORMAT  (2(A2,3A2)) 

(  087  CALL  .READY  (LU,IERR) 

once  IF  (lERR.NE.O)  CALL  BEROR  ( I EFLG , I T MP , I EFLG ) 

0089  IF  (lEFLG)  95,70,60 

0  09  0  C 

0091  70  PARM(l)  =  1 

0092  C 

0093  C  -  MONITORING  DONE,  SEND  PROGRAM  STATUS  TO  PAPA  - 

0  094  C 

0095  80  CALL  PRTN  (FARM) 

0  096  CAl.L  EXEC  (6) 

0  0  97  C 

0098  C  -  REPORT  ERRORS - 

0  099  C 

0100  90  CALL  ERROR  (lERR) 

0101  CALL  CLEAR  ( LU , 1  ) 

0102  C 

0103  95  PARH(l)  =  -1 

0104  GO  TO  80 

(.‘3  05  END 
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0096  SUBROUTINE  GETAB  (LU, ASX,ASY,IERR ) 

0098  C  * 

0099  C 

0100  INTEGER  MSG(7) ,ASX<3) ,ASY<3) 

0101  C 

0102  C  -  REQUEST  AND  RECEIVE  COORDINATES  FROM  BUS  - 

0103  C  -  FORMAT  SENDING^  SP  <CR>  <LF>  - 

0104  C - FORMAT  RECEIVING:  X  <COORD>  Y  <COORD>  <CR>  <LF> -  * 

0  3.05  C 

0106  CALL  READY  (LU,IERR) 

0107  IF  (lERR.NE.O)  RETURN 

OlOe  WRITE  (LU,100) 

0109  iOD  FOR.MAT  <  "SP  " ) 

0  1 1 0  C  • 

0111  READ  (LU,110)  MSG 

0112  110  FORMAT  (7A2) 

0113  C 

0114  C  -  CONVERT  TO  CHOSEN  ASCII  FORMAT  AND  RETURN  - 

0115  C 

0116  DO  20  1=1,3  • 

0117  ASX(I)  =  MSG(I) 

0118  20  ASY<I)  =  MSG<I+3) 

0  1 1 9  C 

0120  ASX(l)  =  lAND  ( ASX < 1 ) , 377B)  +  20000B 

0321  ASY(l)  =  lAND  ( ASY < 1 ) , 377B)  +  20000B 

0122  C  • 

0123  lERR  =  0 

0124  RETURN 

0125  END 


FTN4  COMPILER:  HP92060-i6092  REV.  2026  (800423) 
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012t  SUBROUTINE  TEST  (FNAME) 

0127  C  =  =  =  =  =  =  =  =:  =  =  =  =  =:  =  =  =  =  =  =  =  === 

012t:  C 
0129  C 

0130  INTEGER  FNAME ( 3 ) , DCB (1 44 ) , BFR ( 13 ) , MSG ( 18 > 

0131  INTEGEk  PINAM<S) ,ASD(3) ,AS£(3) ,AAGD(3) ,AASE<3) ,BASD(3) ,BASE(3) 

0132  C 

0133  EQUIVALENCE  ( P INAM ( 1) , BFR ( 1 ) ) 

0134  EQUIVALENCE  ( ASD ^1 ) , BFR ( 8 ) ) ,  ( AGE ( 1 ) , BFR ( 1 1 ) ) 

!'13B  C 

013S  C - PkEi'  FGk  TtST  -  DEVICE  CLEAR - 

0137  C 

0138  LU  =  36 

0139  CALL  CLEAR  (LU,1) 

0140  110  FORMAT  (A2) 

0541  115  FORMAT  (iaA2> 

0142  C 

05  43  C -  OPEN  HYBRID  TABLE  FILE  - 

0144  C  -  SET  BIT  0  FOR  NON-EXCLUSIVE  OPEN  - 

0145  C 

0146  C(^  LL  OPEN  <  DCB  ,  1  ERR  ,  FNAME ,  IB ) 

0147  IF  (lERR.L'  0;  GO  TU  90 

0148  C 

0149  C  -  RETRIEVE  POINTS  A  AND  B  THEN  SEND  COORDINATES  - 

0150  C  -  FORMAT:  AX  <COORD>  AY  <COO;D>  <CP>  <LF>  - 

0151  C  -  FORMAT:  BX  <COQRD>  BY  <COORD>  <CR>  <LF>  - 

0152  C 

0153  CALL  READF  ( DCB , lERR  ,BFR  ) 

0154  IF  (lERR.LT.O)  GO  TO  90 

0155  DO  16  1=1,3 

0156  AASDd)  =  ASD(I) 

0557  16  AAGE(l)  =  ASE(I) 

0150  C 

0  159  CALL  READP  < DCB , lERR  ,  BFR  ) 

0160  IF  (lERR.LT.O)  GO  TO  90 

0161  DO  17  1=1,3 

0162  BASIXI)  =  ASD(I) 

0163  17  BA'JE(I)  =  ASECI) 

0164  C 

0165  ITMP  =  0 

0166  lEFLG  =  0 

0167  CALL  READY  (LU,IERR) 

0168  IF  (lERR.NE.O)  CALL  BEROR  ( lERR , JTMP , IEFLG ) 

0169  IF  (IEFLG. LT  0)  GO  TO  95 

0170  18  ICMi  =  2HAX 

0171  ICM2  =  2HAY 

0172  WRITE  (LU,118)  ICMI , AASD  ,  ICM2 , AAbE 

0173  118  FORMAT  (2(A2,3A2)) 

0174  C 

0175  CALL  READY  (LU,IERK) 

0176  IF  (lEKR.NE  0)  CALL  BEROR  ( lERR , I T HP , IEFLG  ) 

0177  IF  (IEFLG)  95,19,18 

0178  C 

0179  19  ITMP  =  0 

0180  IEFLG  =  0 
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OlBl  20  ICMi  «  2HEiX 
0182  ICM2  =  2HEIY 

0183  WRITE  <LU,118)  ICMI , BASD , ICM2 , BASE 

0184  C 

0185  CALL  READY  <LU,IERR) 

0186  IF  (lERR.NE.O)  CALL  BEROR  ( lERR , ITMP , lEFLG > 

0187  IF  (lEFLG)  95,21,20 

0188  C 

0189  C  -  LOAD  HYBRID  AND  SET  TEST  MODE  - 

0190  C 

0191  21  ITMP  =  0 

0192  lEFLG  =  0 

0193  22  ICMD  =  2HLD 

0194  WRITE  (LU,110)  ICMD 

0195  CALL  READY  <LU,IERR) 

0196  IF  (lERR.NE.O)  CALL  BEROR  < lERR , ITMP , lEFLG ) 

0197  IF  (lEFLG)  95,40,22 

0 1  98  C 

0199  C  ======  PRESENT  MENU  OF  COMMANDS  ====== 

0200  C 

0201  40  ITMP  =  0 

0202  lEFLG  =  0 

0203  CALL  READY  (LU,IERR) 

0204  IF  (lERR.NE.O)  CALL  BEROR  ( lERR , ITMP , lEFLG > 

0205  IF  (lEFLG)  95,400,480 

02  06  C 

0207  400  WRITE  (1,1400) 

0208  1400  FORMAT  ( //8X ,  "KEYBOARD  TEST  PROBE  COMMANDS", 

0209  6//"IN",14X, "INITIALIZE  PROBE", 

0210  6/"AXNNNNNAYNNNNN  SEND  REFERENCE  POINT  A", 

0211  <./"tXNNNNNBYNNNNN  SEND  REFERENCE  POINT  B", 

0212  6/"LD",14X,"L0AD  HYBR ID"  , /"UL" , i4X , "UNLOAD  HYBRID", 

0213  4/"M0",14X,"SET  MODE  TO  AUTOMATIC", 

0214  6/"Ml"  ,14X,  "SET  MODE  TO  MANUAL  "M2  ",  14X  ,  "SET  MODE  TO  TEST", 

0215  4/ "XNNNNNYNNNNN  GO  TO  POSITION  (X,Y)", 

0216  4/"DSNNNNNESNNNNN  GO  TO  POSITION  (D,E)", 

0217  4/"H0",14X, "GO  TO  HOME  POSITION", 

0218  4/"UP",14X, "RAISE  PROBE" ,/"DN" , i4X, "LOWER  PROBE", 

0219  4/"MS  (MESSAGE)  SEND  A  MESSAGE", 

0220  4/" ??",i4X, "REQUEST  STATUS”, 

0221  4/"SP",14X, "REQUEST  (X,Y)  POSITION  INFORMATION", 

0222  4/"SI)"  ,14X,  "REQUEST  (D,E)  POSITION  INFORMATION", 

0223  4/"S£"  , i4X, "REQUEST  ERROR  CODE", 

0224  4/"FT”,i4X,"TEST  HYBRID  FILE  SEQUENTIALLY", 

0225  4/“EX",.l4X,  "EXIT  KEYBOARD  TEST"/) 

0226  C 

0227  C - ENTER  A  COMMAND - 

0228  C 

0229  410  WRITE  (1,1410) 

0230  1410  FORMAT  (IIX,  "ENTER  A  COMMAND:  _" ) 

0231  READ  (1,115)  MSG 

0232  C 

0233  415  ICMD  =  lAND  ( MSG ( 1 ) , t77400B )  +  40B 

0234  IF  (MSG( 1) . EQ . 2HUP . OR . MGG( 1 ) . EQ . 2HDN . OR . MBG(1 ) . EQ . 2UHU)  GOTO  4 

0235  IF  (MSG( 1 ) . EQ . 2HM0 . OR . MSG< 1 ) .EQ . 2HMi . OR .MSG( 1 ) .EQ . 2HM2)  GOTO  4 
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0236  IF  (MSG(i) .EQ.2HLD.0R .MSG(l) .EQ.2HUL)  GO  TO  420 

0237  IF  (MSG(l) .EQ.2HMS)  GO  TO  435 

0238  IF  <ICMD.EQ.2HA  . OR . ICMD . EQ . 2HB  . OR . ICMD . EQ . 2HD  )  GO  TO  432 

0239  IF  <ICMD.EQ.2HX  )  GO  TO  430 

0240  C 

0241  ICMD  =  MSG(l) 

0242  IF  (ICMD. EQ.2H?? .OR .ICMD. EQ.2HSE)  GO  TO  440 

0243  IF  ( ICMD. EQ.2HSP  OR .ICMD. EQ.2HSD)  GO  TO  440 

0244  C 

0245  IF  (MSG(l) .EQ.2HFT)  GO  TO  50 

0246  IF  (MSG(l) .EQ.2HIN)  GO  TO  437 

0247  IF  (MSG(l) .EQ.2HEX)  GO  TO  80 

0248  GO  TO  410 

0  249  C 

0250  C  -  EXECUTE  PROBE  MOVE/MESSAGE/INITIALIZt  COMMAND  - 

0251  C 

0252  420  WRITE  (LU,110)  MSG(l) 

0253  GO  TO  480 

0254  C 

0255  430  WRITE  (LU,1430)  < MSG ( I ) , 1=1 , 6 ) 

0256  1430  FORMAT  <6A2) 

0257  GO  TO  480 

0258  C 

0259  432  WRITE  <LU,1432)  < MSG ( I ) , 1=1 , 8 ) 

0260  1432  FORMAT  <8A2) 

0261  GO  TO  480 

0262  C 

0263  435  WRITE  <LU,1435)  (MSG< I ) , 1=1 , 17) 

0264  1435  FORMAT  <17A2) 

0265  GO  TO  480 

0266  C 

0267  437  CALL  CLEAR  <LU,1) 

0263  GO  TO  480 

0.269  C 

0270  C - EXECUTE  STATUS/POSITION  INFORMATION  REQUEIST - 

0271  C  -  DELAY  250  MILLISECONDS  FOR  5D  COMMAND  - 

0272  C 

0273  440  WRITE  (LU,110)  ICMD 

0274  IF  < ICMD . EQ . 2HSD)  CALL  EXEC  (12,0,1,0,-25) 

0275  READ  (LU,115)  MSG 

0  276  C 

0277  IF  (ICMD.EQ  2H??)  GO  TO  470 

0278  IF  (ICMD.EQ.2HS9)  GO  TO  460 

0279  IF  (ICMD.EQ.2HSD)  GO  TO  465 

0280  C 

0281  MSG(l)  =  MSG(l)/256 

0282  WRITE  (1,1450)  MSR(l) 

0283  1450  FORMAT  (/"THE  ERROR  CODE  IS  ",I5) 

0284  GO  TO  480 

0  285  C 

0286  460  MSG(l)  =  lAND  ( MSG ( 1) , 3778 )  +  240008 
0287  MSG<4)  =  lAND  ( MSG  (  4 )  ,  377B)  260008 

0288  WRITE  (1,1460)  ( MSG ( I ) , 1=1 , 6 ) 

0289  1460  FORMAT  (/"THE  (X,Y)  POSITION  IS  ",6A2,")") 

0290  GO  TO  480 
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0  291  C 

0292  465  MSG(i)  =  lAND  (MSG( 1 ) ,3778)  +  24000B 
0293  MSG(4)  =  lAND  (MSG < 4 ) , 17740 OB )  +  54B 

0294  WRITE  (1,1465)  ( MSG ( I ) , 1=1 ,7 ) 

0295  1465  FORMAT  (/"THE  (D,E)  POSITION  IS  ••,7A2,")") 

0296  GO  TO  480 

0297  C 

0298  470  IbT  =  2HUP 

0299  IF  (lAND  (M3G< 1 ) ,200006) .NE. 0 )  1ST  =  2HDN 

0300  WRITE  (1,1470)  1ST 

0  (1,1  1470  EORflAT  (/"PROBER  POSITION?  ",A2) 

UJU2  1ST  =  2HN0 

0  3  03  IF  (lANI)  (hSG(  1 )  ,  lOOOOB)  .NE.  0  )  1ST  =  2HY 

0304  WRITE  (1,1472)  1ST 

O.iUS  1472  FORMAT  ("PROBER  BUSY?  ",A2) 

OT::,:,  is:  =  2HY 

r/  if  (IAND  (MSG(  1  )  ,4000B)  .NE.O)  1ST  =  2HN0 

■  W.vlTLT.  (1,1474)  IST 

1474  FQkMAI  ("PROBER  ONLINE?  ",A2) 

c,;i  c  ibr  =  2HNn 

I'll  IF  (IAND  (M5G(1) ,20006) .NE.O)  IST  =  2HY 

n?l2  WRITE  (1,1476)  IST 

C‘,13  1476  FQKMAT  ("ERROR  CONDITION?  ",A2) 

u  iA  lol  =  PIIAU 

(  lb  IF  (IAND  (MSG(l)  ,14006)  .EQ. 0)  GO  TO  478 

IS!  =  2IIMN 

IF  (JAND  (MSG( 1 ) , lOOOB)  . EQ . 0  )  GO  TO  478 
i  l  :■  J  SI  =  2HTS 

I,.  .V  IF  (IAND  (M5G(  1  )  ,400B)  .EQ.  0)  GO  TO  47B 

J  ..  .  1ST  =:  2HID 

0  478  UK [IE  (1,1476)  IST 

:.:'.''2  147B  FORMAT  ("PROBER  MODE?  ",A2) 

b  ',2.(  r. 

03.  4  C  -  REINITIALIZE,  THEN  CONTINUE  WITH  TESTING  — 

('32'-,  C 

().:26  480  WRITE  (1,1460) 

0327  1480  FORMAT  (/"PRESS  RETURN  TO  CONTINUE  _" > 

0 52B  READ  (1,110)  N 

0329  C 

0320  DO  490  1=1,18 

0331  490  MbC(l)  =  2H 

0332  GO  TO  40 

0333  C 

0.334  C -  TEST  EACH  RECORD  OF  FILE  SEQUENTIALLY 

0335  C  -  NOW  READ  A  RECORD  AND  RETRIEVE  POINT  (D,E) 

0.336  C  -  SKIP  DELETED  RECORDS.  CHECK  FOR  EOF. 

0  337  C 

0  (30  50  ICm?  =  2H?? 

.  Wl'j  ,E  (LU,li();  ICnl) 

0  :  Ri:.hD  vlU,li5)  MSt. 

'  -4|  .iF  (lANi;  (MSG(i),14(i0B)  EQ.IOOO^O  GO  TOSIO 

<1  :  a:;-  f 

0  14  2  W  K  I  1 1.‘.  (  1  ,  1  5  0  0  ) 

0  3^:4  (50)  FuknAf  (/"FIRST, 

(’  '4F  LC  TO  48  0 


SET  MODE  TO  TEST") 


1 


1 

1 
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0346 
0347 
0348 
0  349 
0350 
0  351 
0  352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0  361 
0362 
0  363 
0364 
0  365 
0366 
0367 
0  368 
0369 
0370 
0371 
0372 
OZi/'S 
0  374 
0375 
0376 
0  377 
0  378 


C 

510  CALL  READF  < DCB , lERR , BFR  ) 

IF  (lERR.LT.O)  GO  TO  90 

IF  (BFR(l)  .EQ.2H)|c*.AND.BFR(2)  .EQ.2H*)K)  GO  TO  50 
IF  (BFR( 1) .EQ.2H  . AND . BFR ( 2) . EQ . 2H  )  GO  TO  40 
C 

C  -  DISPLAY  PIN  NAME,  THEN  CONTINUE  - 

C 

WRITE  (1,1520;  PINAri 

1520  FORMAT  (//"THE  NEXT  PIN  IS=  "  , 5A2  , 

4/"PRESS  'ENTER'  TO  CONTINUE") 

C 

C  -  MOUE  prober  TO  HYBRID  POSITION  (D,E) 

C  -  FORMAT:  D  <+/->  <COORD>  E  <+/->  (COORD)  < CR )  <LF>  — - 

C 

IF  (lAND  (ASD(1),177400B)  EQ.20000B) 

6  ASD(l)  =  lAND  (ASD(l) ,377B)  ♦  25400B 

IF  (lAND  (ASE(1),177400B) .EQ.20000B) 

6  ASE(l)  =  lAND  (ASE(l)  ,377B)  -f  25400B 

C 

ITMP  =  0 
lEFLG  =  0 

CALL  READY  (LU,IERR) 

IF  (lERR.NE.O)  CALL  BEROR  ( lERR , ITMP , lEFLG ) 

IF  (IEFLG.lt. 0)  GO  TO  95 
530  ICMl  =  2HD 
I CM2  =  2HE 

WRITE  (LU,118)  ICMl  ,ASD,I(:;M2,ASE 
C 

CALL  READY  (LU,IERR) 

IF  (lERR.NE.O)  CALL  BEROR  ( lERR , ITMP , lEFLG ) 

IF  (lEFLG)  95,535,530 
535  ICMD  =  2HSi> 


0  379  WRITE  (LU,11())  ICMD 

0380  CALL  EXEC  (12,0,1,0,-25) 

0331  READ  (LU,115)  MSG 

0332  C 

0333  C  -  NOTE  THE  FILE  AND  PROBER  POSITIONS  - 

0384  C 

0385  M3G(1)  =  lAND  ( MSG ( 1 ) , 377B )  +  2400UP 

0306  MSG(4)  =  lAND  ( MSG ( 4 ) , 17740  OB )  +  54B 

0387  C 

0388  WRITE  (1,1540)  P INAM , A3D , ASE , ( MSG ( I) , I = 1 , 7 ) 

0389  1540  FORMAT  (/"THE  PIN  15=  ",5A2, 

0390  6/"CALCULATEU  POSITION  IS:  ( " , 3A2 ,  "  ,  "  , 3A2 ,  "  )  "  , 

0391  6/"THE  ACTUAL  POSITION  IS  ",7A2,")") 

0392  C 

0393  CALL  EXEC  ( 12 , 0 , 2 , 0 , -3 ) 

0394  GO  TO  510 

0  395  C 

0396  C  -  DONE,  CLOSE  FILE  AND/OR  REINITIALIZE  PROBER 

0397  C 

0398  80  CALL  CLOSE  (DCB) 

0399  WRITE  (1,180) 

0400  180  FORMAT  (/"PROBER  TEST  COMPLETED") 


■1 

•j 


1 


-  1 


1 


1 
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1401  RETURN 

402  C 

403  C - REPORT  ERRORS - 


>404 

C 

1405 

90 

CALL 

ERROR 

( lERR ) 

)406 

CALL 

CLEAR 

(LU,i  ) 

>407 

95 

CALL 

CLOSE 

(DCB) 

}408 

RETURN 

>409 

END 

F1N4  COMPILER:  HP92060-16092  REV.  2026  (900423) 


NO  UARNilNGC-i  **  NO  ERRORS  **  PROGRAM 


02031 


COMMON 


0  C  0  0  0 


PAGE 

0010 

FTN.  8:50  PM  MON.,  14  DEC.,  1981 

0410 

SUBROUTINE  READY  (LU,IERR) 

0411 

c 

0412 

c 

0413 

c 

0414 

INTEGER  MSG(2) 

0415 

c 

0416 

c  — 

—  DELAY  500  MILLISECONDS  - 

0417 

c 

0418 

IRESL  =  1 

0419 

IMULT  =  0 

0420 

lOF-ST  =  -50 

0421 

10 

CALL  EXEC  (12,0, IRESL, IMULT, lOFST) 

0422 

c 

0423 

c - 

—  READY  FOR  DATA?  CHECK  "BUSY"  AND  "ERROR" 

0424 

c 

0  425 

ICMD  =  2H?? 

0426 

WRITE  (LU,i00)  ICMD 

0427 

100 

FORMAT  (A2) 

0428 

READ  (LU,110)  MSG 

0429 

110 

FORMAT  (2A2) 

0430 

IF  (lAND  (MSG(1),10000B) .NE.O)  GO  TO  10 

0451 

IF  (lAND  (MSG(l) ,200010  . NE . 0)  GO  TO  20 

0432 

c 

0433 

lERR  =  0 

0434 

RETURN 

0435 

c 

0436 

20 

ICMD  =  2HSE 

0437 

WRITE  (LU,100)  ICMD 

0438 

READ  (LU,110)  MSG 

0  439 

lERR  =  MSG(l) 

0440 

RETURN 

0441 

END 

FTN4  COMPILER:  HP92060-16092  REV.  2026  (800423) 
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FTN  . 
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iGE  0011 


(2 

13  C 
\A  C 

15  C 

16  C  - 
\7  C 

)8 

»9  C 
50  C  - 
5i.  C 

52 

53 

54 

55 

56  C 

57  10 
53 

59  C 

60  C  - 

61  C 

62  20 

63  120 

o4  C 

65  C  - 

66  C 

67 
6B 

69 

70  C 

71  C  - 

72  C 

73  30 

74 

75  17.0 

76  C 

77  4  0 
7B 

79 

BO 

B1 


SUBROUTINE  BEROR  ( lERRC , lERRP , lEFLG ) 


—  IS  ERROR  FATAL  OR  NQN-FATAL?  - 

IF  <IAND  (IERR(:,  100000B)  NE.  0  )  GO  TO  30 

—  NON-FATAL,  IS  IT  THE  SAME  AS  PREVIOUS  CODE?  - 

lERRC  =  IERRC/256 
IF  (lERRC.NE. lERRP)  GO  TO  10 
lEFLG  =  lEFLG  +  1 
GO  TO  20 

lEFLG  =  1 
lERRP  =  lERRC 

—  PRINT  NON-FATAL  ERROR  MESSAGE  - 

WRITE  (1,120)  lERRC 

FORMAT  (/"♦*»  NON-FATAL  BUS  ERROR  t**") 

■—  SAME  NON-FATAL  ERROR  3  TIMES?  IF  YES,  ABORT  - 

IF  (lEf LG.Ea.3)  GO  TO  40 

PAUSE 

RETURN 

■ —  FATAL,  PRINT  FATAL  ERROR  MESSAGE  AND  ABORT - 

lERRC  =  IERRC/2:56 
WRITE  (1,130)  lERRC 

FORMAT  (/'■♦#»  FATAL  BUS  ERROR  ",IS,"  **!»") 

lEfLG  =  -99 
CALL  CLEAR  (LU,1) 

PAUSE 

RETURN 

END 


FTN4  COMPILER:  HP92060-16092  REV  2026  (800423) 

*»  NO  WARNINGS  NO  ERRORS  PROGRAM  =  0012.5  COMMON  ::::  0  000  0 
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AGE  0012  FTN. 
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29  SUBROUTINE  CALDE  (XC,YC) 

30  c  =========  ===============.■ 

31  C 

32  C 

33  COMMON  /UALS/  XA , Y A , XB , YB , XM , YM , AB5LP , CDSLP , UFLG , HFLG 

34  C 

35  INTEGER  UFLG,HFLG 

36  C 

37  C  -  CHANGE  POINT  TO  NEW  COOED  SYSTEM  USING  MIDPOINT  M  - 

33  C 

3?  XC  =  XC  -  XM 

40  YC  =  YC  -  YM 

41  C 

42  C  -  CHECK  IF  VERTICAL/HORIZONTAL  REFERENCE  - 

43  C 

44  IF  (UFLG)  30,10,40 

■45  10  IF  (HFLG)  50,15,60 

■  46  C 

47  C  -  CALCULATE  UALULS  FOR  COORDINATES  D  AND  E  - 

140  C 

^49  15  ZC  =  YC  -  (CDSLP  *  XC) 

FbO  D  =  ABS  (ZC  /  (SORT  ((CDSLP*)(c2)  +  i)>) 

^Si  C 

152  E3  =  SORT  <<ABSLP**2)  +  1) 

»'.:>3  E  =  ABS  ((YC  -  (ABSlP  *  XC )  )  /  E3) 

♦  54  C 

♦55  C  -  CALCULATE  SIGNS  FOR  COORDINATES  D  AND  E  - 

♦  56  C 

♦57  XF  =  ZC  /  (ABSLP  -  CDSLP) 

♦5B  YF  =  ABSLP  *  XF 

♦  59  C 

♦  60  R1  =  SnRT  (((Xr-XA)  2)  +  ((YA-YF)  *)♦:  2)) 

♦  ■61  R2  =:  SORT  (((Xr:<-XF)  ♦*  2)  +  ((YF-YB)  2)) 

♦  6  L 

♦63  D  =  D  +  0.5 

♦  t.4  IF  (R2.LT.R1)  I)  =  -D 

♦  65  C 

♦  66  E  =:  E  +  0 . 5 

♦67  K  =  0 

♦68  IF  ( rA-YB . GT . 0 . 0 )  K  =  4 

♦  69  IF  ( ABSLP.  GT,  0  0)  K  K  *  2 

♦70  IF  (rC.GT.YF)  K  =  K  +  1 

♦  71  IF  (l<  ,  EB.  1  .  OR  .  K  .  EQ  ,2  .  DR  K  .  EO  ,4  .  OR  .K  EQ  .7)  E  =  E 

♦  72  C 

♦73  C  -  CALCULATIONS  COMPLETED,  RETURN  D  AND  E  - 

474  C 

♦75  20  XC  =  D 

476  rc  =  E 

477  RETURN 

478  C 

479  C  -  VERTICAL  REFEKLNCE,  DETERMINE  SIGNS  AND  VALUES  - 

480  C 

481  30  D  =:  -YC 

482  E  =  -XC 

483  GO  TO  20 


9  hyioieee.sa:i 


HYIOIE  IEEE  INTERFACE  ROUTINES 


M 

M  DATA  INPUT  INTERRUPT  -  WHEN  THE  BI  (BYTE  I 

*  THE  END  (END  OR  IDENTIFY)  BIT  GETS  SETr  TH 
K  IS  SECTORED  TO.  THIS  ROUTINE  WORKS  OFF  OF 

*  QUEUE  AND  WILL  ACCEPT  CHARACTERS  UNTIL  THE 

M 


110^ 

B6 

E702 

A 

DLSTN  LDA 

HPREG2 

1107 

85 

0-1 

A 

BIT  A 

♦LACBIT 

GLISTEN  ACTIVE  STATE? 

»109 

26 

07 

0112 

BNE 

X 

*  ERROR  - 

DLSTIO  ?YES 

NOT  A  LISTENER 

)10P 

C6 

03 

A 

LDB 

♦NOLSTN 

)10D 

D7 

Afc": 

A 

STB 

BUSERR 

31  OF 

7E 

018E 

P 

JMP 

W 

I3EXIT 

3112 

F6 

E707 

A 

DLSTIO  LDB 

HPREG7 

;get  character 

0115 

96 

Bl 

A 

LDA 

XFRST 

♦CURRENT  TRANSMISSION 

0117 

81 

FF 

A 

CMPA 

♦ACTMOD 

♦IN  ACTIVE  STATE? 

0119 

26 

17 

0132 

BNE 

W 

DLST30 

♦  NO 

OllE- 

Cl 

3F 

A 

ChPB 

♦STCHAR 

♦IS  IT  STATUS  CHARACTE 

OllD 

26 

OD 

012C 

BNE 

DLST20 

♦  NO 

01  IF 

96 

AA 

A 

JK 

LDA 

REGOSV 

0121 

85 

02 

A 

BIT  A 

♦ENDBIT 

♦IS  THISLAST  BYTE  OF  M 

0123 

26 

15 

013A 

BNE 

W 

DLSTSO 

♦YES  STORE  CHAR  ANYWAY 

0125 

86 

00 

A 

LDA 

♦ALRMOD 

♦YESf  SET  TO  ALARM  MOD 

0127 

97 

Bl 

A 

STA 

XFRST 

0129 

7E 

018Er 

E 

JMP 

I3E:XIT 

012C 

86 

02 

A 

DLST20  LDA 

♦DACMOD 

♦DEACTIVE  STATUS  ALARM 

012E 

97 

E'.l 

A 

SI  A 

XFRST 

0130 

20 

08 

013A 

BRA 

DLSTSO 

0132 

81 

00 

A 

DLST30  CMPA 

♦ALRMOD 

;IN  ALARM  MODE';’ 

OlS-'t 

27 

3A 

0170 

BEQ 

W 

DLST70 

♦  YES 

013A 

81 

01 

A 

Jil 

CMPA 

♦IGNMOD 

♦IGNORE  CHAR? 

0138 

27 

OF 

01  “49 

BEQ 

X 

DLST50  LDX 

DLST60 

♦  YES 

013A 

8E 

O-^SE 

A 

♦INBCF 

; POINTER  TO  INPUT  BUF 

013D 

E:[) 

0000 

A 

JSK- 

PUrC.'HR 

f‘GE7  CHAR  FROM  Q 

01-^0 

07 

01 -'EY 

BCC  OLSI60 

X 

X  ERROR  -  INPin  QUEUE- 

?NO  ERRORS 

IS  FULL 

01^2 

C6 

02 

A 

M 

DLST55  LDB 

♦QUEFUL 

01^^ 

D7 

AB 

A 

STB 

BUSERK 

01^6 

7E 

018E 

P 

JMP  I3EXIT 

X 

*  CHECK  FOR  END  OR  IDENTIFY  TRANSMISSION 

01-^9 

96 

AA 

A 

m 

DLST60  LDA 

REGOSV 

Ol^B 

85 

02 

A 

BITA 

♦ENDBIT 

fWAS  THIS  LAST  BYTE? 

Ol^D 

27 

IE 

016D 

BEQ 

DLST65 

♦  NO 

008  HY10IEEE.SA:1  HYIOIE  IEEE  INTERFACE  ROUTINES 


}K 

*  COMMAND  INTERRUPT  -  LISTEN  FOR  COMMAND  ONL 

*  UPON  INTERRUPT  OF  THE  CMD  BIT  SET  OF  THE 

*  INTERRUPT  MASK  REGISTER f  THIS  ROUTINE  HI 

*  SECTORED  TO  BY  THE  IRQ  BUS  HANDLER.  THE 

*  PURPOSE  OF  THE  ROUTINE  IS  TO  DETERMINE  W 

*  COMMAND  IS  REQUESTED  AND  SET  THE  APPROPR 

*  VARIABLES  AND  FLAGS. 

)K 


• 

00C2 

B6 

E701 

A 

CLSTN  LDA 

HPREGl 

OOCS 

85 

08 

A 

BITA 

♦RLCBIT  .WAS  IT  REM/LOC  CHANGE 

00C7 

27 

OD 

0  0D6 

BEQ 

9K 

*  CHANGE  IN 

CLST20  ?NO 

REMOTE/LOCAL  STATE  HAS  OCCURED 

> 

00C9 

OF 

BO 

A 

CLR 

OPMODE  JSET  TO  LOCAL 

:• 

OOCB 

85 

^0 

A 

BITA 

♦REMBIT  ;IS  REMOTE  ENABLED? 

.* 

OOCD 

1027 

OOBD  018E 

LBEQ 

W 

I3EXIT  JNO 

:■ 

OODl 

03 

BO 

A 

COM 

OPMODE  .SET  TO  REMOTE 

00D3 

7E 

018E 

P 

JMP 

M 

*  CHECK  FOR 

M 

CLST20  BITA 

I3EXIT 

SERIAL  POLL  ACTIVE  STATE 

:• 

00D6 

85 

0-^ 

A 

♦SPABIT  IIS  SPAS  BIT  SET? 

P 

00D8 

27 

06 

OOEO 

BEQ 

CLST-HO  INO 

P 

OODA 

7F 

E705 

A 

CLR 

HPREG5  .NEVER  US  FOR  SERIAL  P 

P 

OODD 

16 

OOAE  018E 

LBRA 

M 

*  CHECK  FOR 

w 

I3EXIT 

DEVICE  CLEAR  ACTIVE  STATE 

p 

OOEO 

85 

02. 

A 

X 

CLST-^O  BITA 

♦DCABIT  IIS  DCAS  BIT  SET? 

p 

00E2 

27 

08 

0  0  EC 

BEQ 

X 

CLST60  INO 

P 

OOE^ 

86 

10 

A 

LDA 

♦*10 

P 

00E6 

B7 

E703 

A 

STA 

HPREG3  1 RELEASE  DAC  HOLDOFF 

F- 

00E9 

7E 

0000 

A 

JMP 

X 

INTDEV  UNIT  DEVICE 

F- 

00  EC 

85 

01 

A 

CLST60  BITA 

♦UUCBIT  IIS  IT  UNDEF  CMD? 

P 

OOEE 

26 

08 

00F8 

BNE 

CLST70  lYES 

P 

OOFO 

85 

80 

A 

BITA 

♦UACBIT  1  ADDRESS  CMD  UNDEF? 

P 

00F2 

26 

0^ 

OOFS 

BNE  CLST70  ?YES 

* 

*  UNKNOWN  CMD  HAS  BEEN  RECEIVED 

w 

P 

OOF^ 

86 

05 

A 

m 

LDA 

♦UKINTR 

P 

00F6 

20 

07 

OOFF 

BRA 

X 

*  UNDEFINED 

W 

CLST80 

UNIVERSAL  COMMAND  RECEIVED 

P 

OOFS 

86 

10 

A 

m 

CLST70  LDA 

♦♦10 

Ip 

OOFA 

B7 

E703 

A 

STA 

HPREG3  1 RELEASE  DAC  HOLDOFF 

P 

OOFD 

86 

0“^ 

A 

LDA 

♦BDUCMD 

P 

OOFF 

97 

AB 

A 

3K 

CLST80  STA 

BUSERR 

;p 

0101 

7E 

018E 

P 

JMP 

I3EXIT 
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0093 

25 

09 

009E 

BCS 

TALK75 

JTHIS  IS  A  PROBLEM???? 

0095 

Cl 

OA 

A 

CMPB 

♦STRTRM 

»END  OF  MESSAGE? 

0097 

27 

07 

OOAO 

w 

BEQ 

TALKS 0 

JYES 

0099 

F7 

E707 

A 

STB 

HPREG7 

? NO r SEND  OUT  DATA  BYTE 

009C 

20 

21 

OOBF 

w 

BRA 

TALKRT 

m 

*  TRANSFER 

IS  NOW  COMPLETE 

009E 

C6 

OA 

A 

TALK75 

LDB 

♦STRTRM 

» FORCE  END  OF  STRING 

OOAO 

86 

20 

A 

TALKS 0 

LDA 

♦*20 

;SET  EDI  LINE 

00A2 

B7 

E703 

A 

ST  A 

HPREG3 

»TO  HOLD  OFF  HANDSHAKE 

00A5 

12 

)K 

NOP 

»MAY  BE  USED  FOR  TOGGL 

00A6 

12 

NOP 

tOF  HPREGO 

0  0A7 

12 

NOP 

00A8 

12 

NOP 

00A9 

86 

BF 

A 

LDA 

♦^iBF 

;turn  off  bo  bit 

OOAB 

B7 

E70  0 

A 

STA 

HPREGO 

OOAE 

F7 

E707 

A 

STB 

HPREG7 

♦  SEND  las;t  character 

OOBl 

OF 

AD 

A 

)K 

CLR 

XINPRG 

♦SET  TO  IDLE 

0  0B3 

BE 

0^6C 

A 

LDX 

OUTBCF+6 

JINIT  BUFFER 

00B6 

BF 

0-^68 

A 

STX 

OUTBCF+2 

00B9 

BF 

0-^66 

A 

STX 

OUTBCF 

OOBC 

OF 

A£ 

A 

CLR 

OUTCNT 

♦G  EMPTY 

00  BE 

3B 

RTI 

m 

P  TALKRT  JHP 


OOBF  7E 


018E 


I3EXIT 


006 
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'7 

'8 

)0 

31 

32 

33 
3^ 
35 


IK 

*  TALKER  INTERRUPT  -  THIS  ROUTINE  IS  TRIGGE 

JK  THE  BYTE  OUT  'BO*  BIT  OF  THE  INTERRUPT  S 

*  REGISTER  (HPREGO)  GETS  SET.  EAC  TIME  THI 

)K  BIT  GETS  SET»  A  SINGLE  BYTE  WILL  BE  SENT 

>K  CONTROLLER.  CURRENT  PHILOSOPHY  IS  IF  A 

*  IS  IN  PROGRRESS  AND  THE  STATUS  TASK  FLAG 

*  <STTASK)»  ABORT  THE  CURRENT  TRANSMISSION 

*  STATUS. 


36  » 


37P 

OO^B 

B6 

E702 

A 

TALKER  LDA 

HPREG2 

JREAD  ADDRESS  ST AT  REG 

38P 

OOAF. 

85 

08 

A 

BIT  A 

♦TACBIT 

>IN  TALKER  ACTIJE  STAT 

39P 

0050 

26 

07 

0059 

BN£ 

TALKIO 

?YES 

90 

91 

X 

ERROR  -  NOT  CURRENTLY  ADDRESSED  TO  TALK 

92 

IK 

93P 

0052 

C6 

06 

A 

LDB 

♦NQTALK 

9^P 

005^ 

D7 

AB 

A 

STB 

eUSERR 

95P 

0056 

7E 

018E 

P 

JMP 

I3EXIT 

96 

X 

97P 

0059 

OD 

AC 

A 

TALKIO  TST 

STTASK 

{STATUS  REQUIRED? 

98P 

005B 

27 

25 

0082 

BEQ 

TALKS 0 

{NO 

99 

X 

,00 

X 

STATUS  REQUESTED  OF 

PROBE 

.01 

X 

:02P 

005D 

OF 

AC 

A 

CLR 

STTASK 

{RESET  STATUS  ENABLE 

^03P 

005F 

OD 

AD 

A 

TST 

XINPRG 

{TRANSFER  IN  PROGRESS 

J^P 

0061 

26 

02 

0065 

BNE 

TALK20 

{YES 

*.05 

X 

!06P 

0063 

03 

AD 

A 

COM 

XINF'RG 

{SET  TRANSFER  IN  PROGR 

!07 

X 

H38P 

0065 

8E 

0-H66 

A 

TALK2Q  LDX 

♦OUTBCF 

{PTR  TO  BCF' 

».09P 

0068 

CC 

OW-H 

A 

LDD 

♦OUTBUF 

{BEG  OF  BUF 

U.0P 

006B 

108E 

0539 

A 

LOY 

♦OUTENO 

{END  OF  E!UF 

JllP 

>1 

0  06F 

BD 

0000 

A 

W 

JSR 

INTBCF 

fINIT  BCF  FIELD 

:i3p 

0072 

ED 

0000 

A 

OSR 

FORMS! 

{FORM  STATUS  BYTE 

*i^p 

0075 

8E 

0-^66 

A 

LDX 

♦OUTBCF 

{pTR  TO  OUTPUT  BCF 

tl5P 

0078 

IF 

89 

A 

TFR 

AfB 

*-16P 

007A 

BD 

0000 

A 

JSR 

PUTCHR 

{SADE  STATUS  BYTE 

’.17P 

0Q7D 

BD 

0000 

A 

JSR 

OTCRLF 

{OUTPUT  CR/LF 

*18P 

0080 

20 

OB 

008D 

BRA 

TALK70 

*19 

X 

i:20 

X 

CHECK  FOR 

DATA  TO  SEND 

:21 

X 

;22p 

0082 

OD 

AD 

A 

TALKS 0  TST 

XINPRG 

{IS  TRANSFER  IN  PROGRE 

!23P 

008^ 

26 

07 

UOBD 

BNE 

TALK70 

;yes  send  next  byte 

*2A 

X 

*25P 

0086 

OD 

A£ 

A 

TST 

OUTCNT 

{ANY  MESSAGES  WAITING? 

!26P 

0088 

26 

01 

008B 

BNE 

TALK60 

{YES 

I27f 

OOBA 

3B 

RTI 

?28 

X 

’29P 

008B 

03 

AD 

A 

TALK60  COM 

XINPRG 

{SET  TRANSFER  TO  IN  PR 

JO 

X 

*31 

X 

SEND  OUT 

THE  Nt:XT  DATA  BYTE 

?32 

X 

J33P 

0080 

8E 

0-^66 

A 

TALK70  LDX 

♦OUTBCF 

23^P 

0090 

BD 

0000 

A 

JSR 

GETCHR 

005  HY10IEEE.SA:i  HYIOIE  IEEE  INTERFACE  ROUTINES 


w  INITIALIZATION  PROCESS  TO  SET  UP  THE  IEEE 
»  HPIB  INTO  THE  INTERRUPT  DRIVEN  MODE. 

M 


p 

0031 

E:6 

E70^ 

A 

INTI3E 

LDA 

HPREG-4 

♦READ  THE  ADDRESS  SWIT 

p 

003-<» 

8^ 

IF 

A 

ANDA 

♦*1F 

♦MASK  THE  BASE  ADDRESS 

p 

0036 

B7 

E70^ 

A 

W 

STA 

HPREG-4 

♦INTERP  ON  LISTEN  TALK 

p 

0039 

86 

80 

A 

LDA 

*«80 

♦SET  RESET  BIT 

IP 

003B 

B7 

E703 

A 

STA 

HPREG3 

p 

003E 

CLRA 

IP 

003F 

B7 

E703 

A 

STA 

HPREG3 

♦  RESET  -488  CIP 

F- 

00-42 

C6 

FF 

A 

LDB 

♦INTMOD 

♦CURRENT  INTERRUPT 

’P 

t 

0  0-4-4 

F7 

E700 

A 

w 

STB 

HPREGO 

♦CONFIGURATION 

kP 

00-47 

B7 

£702 

A 

STA 

HF-REG2 

♦NO  SPECIAL  FUNC 

ip 

00-4A 

39 

RTS 

GE  00^  HYlOIEEE.SAtl 


HYIOIE  IEEE  INTERFACE  ROUTINES 


119 

?0 

21 


X 

X 

X 


IEEE-68^8a  INTERRUPT  PROCESSOR 


122 

123 

12-^ 

125 

126 
1127 


*  THIS  SYSTEM  IS  CONFIGURED  SUCH  THAT  WHEN 
JK  68^88  BUS  INTERRUPT  IS  GENERATED  BY  A  CON 
X  THE  HARDWARE  IS  ‘HARDWIRED*  TO  VECTOR  TO 

*  WHERE  IT  WILL  BE  DETERMINED  THE  VALIDITY 

*  THE  INTERRUPT  AND  DIRECT  IT  TO  THE  APPROP 
X  SUB-HANDLER* 


128  X 


129P 

0000 

B6 

E70  0 

A 

IRQI3E 

LDA 

HPREGO 

JREAD  INTERRUPT  REG 

I130P 

0003 

2A 

29 

0  02E 

BPL 

IRQNOT 

»TRY  FOR  KEYBOARD 

1131 

X 

I132P 

0005 

97 

AA 

A 

STA 

REGOSV 

fSAVE  COMMAND  INFO 

»133 

X 

I13^P 

0007 

85 

01 

A 

BITA 

♦BIBIT 

?IS  IT  BI? 

)135P 

0009 

1026 

00F7 

010“^ 

LBNE 

DLSTN 

JYES 

1136 

X 

)137P 

GOOD 

85 

02 

A 

BITA 

♦ENDBIT 

tlS  IT  END  BIT? 

n38P 

00  OF 

1026 

OOFl 

010-^ 

LBNE 

DLSTN 

?YES 

)139 

X 

Jl'HOP 

0013 

85 

O-H 

A 

BITA 

♦CMDBIT 

»IS  IT  CMD  BIT 

Dl-^IP 

0015 

1026 

00A9 

00C2 

LBNE 

CLSTN 

;yes 

i)1^2 

X 

31  ^3P 

0019 

85 

■^0 

A 

BITA 

♦BOBIT 

JIS  IT  BO  BIT? 

Dl-^-HP 

OOIB 

26 

2E 

00  “HB 

BNE 

TALKER 

FYES 

('■'  ^5 

X 

4AP 

OOID 

85 

20 

A 

BITA 

♦GETBIT 

» GROUP  EXEC  TRIG? 

.,1A7P 

00  IF 

27 

08 

0029 

BCG 

IRQERR 

?NO 

01'48 

X 

()1A9P 

0021 

86 

10 

A 

LDA 

♦$10 

0150P 

0023 

B7 

E703 

A 

STA 

HPREG3 

? RELEASE  DAC  HOLDOFF 

0151P 

0026 

7E 

018E 

F- 

JMP 

I3EXIT 

0152 

X 

0153P 

0029 

C6 

01 

A 

IRQERR 

LDB 

♦BADIRQ 

? ILLEGAL  INTERRUPT 

()15-HP 

002Ei: 

D7 

AB 

A 

STB 

BUSERR 

0155P 

00  2D 

3B 

RTI 

0156 

X 

0157P 

002E 

7E 

0000 

A 

IRQNOT 

JMP 

KINT 

fKEY  PROCESSOR 

E  003  HYlOIEEE.SAtl  HYIOIE  IEEE  INTERFACE  ROUTINES 


193 

X 

xxxxxxxxxxx 

95 

X 

96 

X 

name: 

IEEE  INTERFACE  MODL_E 

197 

X 

198 

X 

FUNCTION 

:  THIS  MODULE  WILL  HANDLE  ALL 

199 

X 

COMMUNICATIONS  BETWEEN  THE  DTS- 

.00 

X 

SYSTEM  AND  THE  2-^60  AUTOPROBER. 

LOl 

X 

BASIC  LISTENER/TALKER  ROUTINES 

L02 

X 

IN  THIS  MODULE  AND  WORK  OFF  OF 

L03 

X 

QUEUE  STRUCTURE. 

LO^ 

X 

105 

L06 

L07 

L08 

109 

110 
111 
112 


*  CALLING  sequence: 

*  JSR  INTI3E  ?INIT  IEEE  BUS 

X 

*  note:  WHENEUER  an  IRQ  interrupt  OCCURS  AN 

*  IT  is  not  a  timer  interrupt  00 

*  JMP  IRQI3E 

X 


113 

X 

RED 

DATE 

BY 

REASON 

11-1 

X 

115 

X 

00 

10/22/82 

SJF 

INIT  RELEA 

116 


X 
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00059 

0  >0 
(  61 

OOFF 

A 

INTMOD 

EQU 

♦FF 

? INTERRUPT  ON  ANYTHING 

IK 

00062 

»  IEEE-684B8 

INTERFACE 

REGISTERS 

00063 

x 

0006-4 

E700 

A 

HPREGS 

EQU 

♦E700 

00065 

E70  0 

A 

HPREGO 

EOU 

HPREGS 

00  066 

E701 

A 

HPREGl 

EOU 

HPREGS+1 

00067 

E702 

A 

HPREG2 

EQU 

HPREGS+2 

00068 

E703 

A 

HPREG3 

EQU 

HPREGS+3 

00069 

E704 

A 

HPREG4 

EQU 

HPREGS+4 

00070 

E705 

A 

HPREGS 

EQU 

HPREGS+5 

00071 

E706 

A 

HPREG6 

EQU 

HPREGS+6 

0  0072 

E707 

A 

HPREG7 

EQU 

HPREGS+7 

00073 

X 

00074 

00075 

X 

0  0  076 

X  LOU 

MEMORY 

EQUATES 

00077 

X 

00078 

OOAA 

A 

REGOSU 

EQU 

170 

;SAUE  COMMAND 

00079 

OOAB 

A 

BUSERR 

EQU 

171 

?BUS  ERROR  CODE 

00080 

OOAC 

A 

STTASK 

EQU 

172 

;SEND  STATUS  FLAG 

00081 

0  0  AD 

A 

XINPRG 

EQU 

173 

;SET  WHEN  TRANSFER  IN 

00082 

OOAE 

A 

OUTCNT 

EQU 

174 

f'SET  WHEN  MSG  IN  OUTBLJ 

00  083 

OOAF 

A 

INCNT 

EQU 

175 

» COUNT  OF  MSGS  IN  INBU 

00084 

OOBO 

A 

OPMODE 

EQU 

176 

; OPERATING  MODE  LOC/RE 

or -85 

GOBI 

A 

XFRST 

EQU 

177 

? TRANSFER  STATUS 

('  36 

X 

0-087 

045E 

A 

INBCF 

EQU 

1118 

;INF-UT  BUF  CONTROL  FIE 

0  0  088 

0466 

A 

OLJTBCF 

EQU 

1126 

? OUTPUT  BUF  CONTROL  FI 

00089 

04D4 

A 

OUTHiiUF 

EQU 

1236 

;i00  BYTE  OUTPUT  BUFFE 

00090 

0  0  091 

0539 

A 

OU1END 

EQU 

1337 

?END  OFOUTPUT  BUFFER 
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00001 

NAh 

HYIOIEEE 

0  )2 

OPT 

REL»CREfNOG 

C  33 

0000^ 

TTL 

IEEE  INTERFACE  ROUTINES 

00005 

K 

00006 

*  INTERNAL  REFERENCES 

00007 

X 

00008 

XDEF 

IRQI3e»INTI3E 

00009 

00010 

00011 

*  EXTERNAL 

REFRENCES 

00012 

X 

00013 

XREF 

INTBCFfFORMST 

0001^ 

XREF 

PUTCHR  »  GETCHR » OTCRLF 

00015 

XREF 

INTD£U»KINT 

00016 

00017 

X 

00018 

»  THE  FOLLOWING  ARE  BYTE  INTERRUPT  EQUATES 

00019 

X 

00020 

0001 

A  BIBIT  EQU 

«01 

00021 

0002 

A  ENDBIT  EQU 

%Q2 

00022 

0004 

A  CMDBIT  EQU 

404 

00023 

0020 

A  GETBII  EQU 

420 

0002“^ 

0040 

A  BOBIT  EQU 

440 

00025 

X 

00026 

X  BUS  ERROR  EQUATES 

0t'''27 

X 

o'  28 

0001 

A  BADIRQ  EQU 

41 

0wj29 

0002 

A  QUEFUL  EQU 

42 

00030 

0003 

A  NOLSTN  EQU 

43 

00031 

00  04 

A  BDUCHD  EQU 

44 

00032 

0005 

A  UKINTR  EQU 

45 

00033 

0006 

A  NOTALK  EQU 

46 

0003-^ 

0007 

A  BOSIRG  EQU 

47 

0  0035 

X 

00036 

X  STATE  BITS 

00037 

X 

0  0  038 

0  040 

A  REMBIT  EQU 

440 

00039 

0008 

A  RLCBIT  EQU 

408 

000^40 

0008 

A  TACBIT  EQU 

408 

OOOAl 

0004 

A  LACBn  EQU 

404 

000-42 

0080 

A  UACBIT  EQU 

480 

000-43 

0001 

A  UUCBIT  EQU 

401 

000-4-4 

0002 

A  DC ABIT  EQU 

402 

000-45 

0004 

A  SPABIT  EQU 

404 

000^6 

X 

000-47 

*  MODES  OF 

TRANSMISSION 

000^8 

X 

000^9 

OOFF 

A  ACTMOD  EQU 

4FF  TACTIUE  MODE 

00050 

0000 

A  ALRMOD  EQU 

400  f ALARM  MODE 

00051 

0001 

A  IGNMOD  EQU 

401  ? IGNORE  MODE 

00052 

0002 

A  DACMOD  EQU 

402  ; DEACTIVATE  MODE 

'  53 

0*.  -5^ 

X 

00055 

X  OlHER  EQUATES 

00056 

X 

00057 

OOOA 

A  STRTRM  EQU 

40 A  ; STRING  TERMINATOR 

00058 

003F 

A  STCHAR  EQU 

43F  ? STATUS  CHARACTER 

SECTION  III 
IEEE-488  DRIVER 

REFERENCE:  FINAL  REPORT  SECTION  2,  SUBSECTION  E.5, 

1.  IRQI3E  -  IEEE-488  BUS  INTERRUPT  PROCESSOR 

2.  INTI3E  -  IEEE-488  HARDWARE  INITIALIZATION 

3.  TALKER  -  IEEE-488  BUS  DATA  OUTPUT 

4.  CLSTN  -  IEEE-488  BUS  COMMAND  PROCESSOR 


5.  DLSTN  -  IEEE-488  BUS  DATA  INPUT 
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i 


0594 

C 

0595 

C  — 

-  REPORT 

ERRORS 

0  596 

c 

0597 

90 

CALL  CLOSE 

<DCB) 

0598 

95 

CALL  ERROR 

(lERR) 

0599 

RETURN 

0600" 

END 
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0539  SUBROUTINE  DSPLY  (FNAME) 

0540  C  ===================*==== 

0  541  C 
0542  C 

0543  INTEGER  FNAME ( 3 ) , DCB ( 144 ) ,BFR ( 13 ) 

0544  INTEGER  P INAM < 5) , ASD ( 3 ) , ASE< 3 ) 

0545  C 

0546  equivalence  ( P INAM ( 1) , BFR ( 1 ) ) 

0  549  EQUIVALENCE  ( ASD ( 1) , BFR ( 8 ) ) , ( ASE ( i ) , BFR ( i i )  ) 

0  540  C 

ub49  C -  OPEN  HYBRID  TABLE  FILE  - 

0550  C  -  SET  BIT  0  FOR  NON-EXCLUSIVE  OPEN  - 

0551  C 

0552  CALL  OPEN  (  DCB  ,  IEkK' , FNAME ,  IB ) 

0553  IF  (lERR.LT.O)  GO  TO  95 

0554  C 

0555  C  -  REQUEST  LISTING  DEVICE  -  CRT/LP  - 

0  55t  C 

0557  20  WRITE  (1,120) 

0558  120  FORMA!  ("DISPLAY  DEVICE  -  (1)  CRT  OR  (6)  LP?  _" ) 

0559  READ  (!,»)  LU 

0560  IF  ^LU.NE. i .AND.LU.NE.6)  GO  TO  20 

ilti  C 

0562  C  -  WRITE  OUT  DISPLAY  HEADINGS  - 

"  I  6  w  C 

15;)4  URITL  (LU,140)  ( I- NAME  ( I )  ,  1  =  1 , 3  ) 

'.")55  '://i2X,  "hYBRIO  TABLE  FILE 


6^//"  r-IN  NAME"  ,ex,  "X"  ,6X,  "Y",9X,  "D”  ,7X,  "E"/) 
READ  A  RECORD  - 


-  deletfd  re  coeds  and  chec<<  pop  e 

0  ~  — 

('  5  ■'  () 

C 

0  5'  j 

5i 

CALi..  FEAD!'  (DCB,IERR,t:-'R) 

0572 

1  (■  (  It  RT  ,  LT  .  0  J  Gu  TO  90 

05'"3 

I F  i.  BF  R  (  1  )  .  LQ  .  2rl>.  *  .  AND  .  BFR  <  2  )  .  E.Q  .  EiTit »  ) 

GO  TO 

0  5  74 

IF  (BFRd)  .EQ.2H  .  AND  .  BF  R  (  2  )  .  EC  .  2H  > 

GO  TO 

0  575 

C 

0  57  6 

c  — 

-  DISPLAY  THE  RECORD  -  PIN  NAME,(X,Y), 

(  D  ,  E  ) 

0  57 1 

' 

0578 

I  M:  (LU,160)  P1NAM,BFR(6)  ,BFR(7)  ,ASD, 

ASL 

0  579 

160 

FORMAT  ("  ",5:42,19, 17, 5>:,3A2,2X,3A2) 

05B0 

c 

0  581 

CO  TO  50 

0582 

C 

0583 

c  — 

-  EOF,  CLOSE  FILE  AND  RETURN  -  — 

0584 

c 

0585 

70 

IF  (LU  NE.6)  GO  TO  80 

0586 

DO  75  1=1,4 

0507 

75 

WRITE  (LU,i75) 

0588 

175 

FORMA!  ("I") 

0589 

c 

0590 

80 

CALL  CLOSE  (DCB) 

0591 

WRITE  (1,180) 

0592 

180 

FORMAT  (//"TABLE  FILE  DISPLAY  COMPLETED 

"  ) 

0593 

RETURN 

Lft  iN 
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0497  SUBROUTINE  ZERDE  (ASC) 

0498  C  =  =  =  =  =  =  =  =  =  =  =  =  ===:  =  =  =  =  =  =  =: 

0499  C 
0500  C 

0501  INTEGER  ASC<3) 

0502  C 

0503  DO  20  1=1,3 

0504  C 

0505  C  -  CHECK  MSB.  IF  BLANK,  CHANGE  TO  ZERO  - 

0506  C 

0507  IF  (lAND  ( ASC ( I ) , 17740 OB ) . NE . 20 0 0 OB )  GO  TO  30 

0508  ASC(I)  =  lAND  ( ASC ( I ) , 377B )  +  30000B 

0509  C 

0510  C - ^ - CHECK  LSB.  IF  BLANK,  CHANGE  TO  ZERO - 

0511  C 

0512  IF  (lAND  (ASC(I) ,377B) .NE.40B)  GO  TO  40 

0513  ASCd)  =  lAND  (A3C(  I )  ,i77400B)  +  60B 

0514  C 

0515  20  CONTINUE 

0516  RETURN 

0517  C 

0518  C  -  MSB  IS  NOT  BLANK.  CHECK  IF  IT  IS  NEGATIUE  SIGN 

0519  C 

0520  30  IF  (lAND  < ASC ( I ) , 177400B ) . NE . 2640 OB )  GO  TO  50 

0521  ASCd)  =  lAND  ( ASC  <  I )  ,  377B  )  +  30000B 

0522  GO  TO  45 

0  523  C 

0524  C  -  LSB  IB  NOT  BLANK.  CHECK  IF  IT  IS  NEGATIUL  SIGN 

0525  C 

0526  40  IF  (lAND  ( ABC d ) , 377B ) . NE . 55B )  GO  TO  50 

0527  ASCd)  =  lAND  ( ASC  d  )  ,  1774Q0B  )  +  60B 

0528  C 

0529  C - COORDINATE  IS  NEGATIVE - 

0530  C 

0531  45  ASCd)  =  I  AND  (  ASC  (  1 )  ,  377B )  +  2640  OB 

0532  RETURN 

0533  C 

0534  C - COORDINATE  IS  POSITIVE - 

0535  C 

0536  50  ASC(l)  =  lAND  ( ASC ( 1 ) , 377B )  +  20000B 

0537  RETURN 

0538  END 
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COMMON 


0  0  0  II  0 


h 


* 


PAGE 

0013 

CALDE  8:46  PM 

0484 

C 

0485 

40 

D  =  YC 

0486 

E  =  XC 

0487 

GO  TO  20 

0488 

C 

0489 

c - 

-  HORIZONTAL 

0490 

C 

0491 

50 

XC  ==  -XC 

0492 

RETURN 

0493 

C 

0494 

60 

YC  =  -YC 

0495 

RETURN 

0496 

END 

DEC.,  1981 


DETERMINE  SIGNS  AND  VALUES 
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00362 

Of  13 

IT 

0u385P 

Ol-^F 

Cl 

OA 

A 

M 

M  TRANSMISSION  OF  THIS 

M 

CMPB  ♦STRTRM 

MESSAGE  IS  COMPLETE 

; STRING  TERMINATOR? 

00386P 

0151 

27 

OE 

0161 

BEO 

DLST62 

FYES 

0  0387 
00388P 

0153 

86 

07 

A 

M 

LDA 

♦BDSTRG 

JSET  ERROR 

00389P 

0155 

97 

AB 

A 

STA 

BUSERR 

00390 

00391P 

0157 

C6 

OA 

A 

x 

LDB 

♦STRTRM 

?PUT  IN  TERMINATOR 

00392P 

0159 

8E 

0^5E 

A 

LDX 

♦INBCF 

00393P 

015C 

BD 

0000 

A 

JSR 

PUTCHR 

0039‘^P 

015F 

25 

El 

01^2 

BCS 

DLST55 

♦BUFFER  FULL 

0  0395 
00396P 

0161 

96 

B1 

A 

M 

DL3T62  LDA 

XFRST 

00397P 

0163 

81 

01 

A 

CMPA 

♦IGNMOD 

♦IN  IGNORE  MODE? 

00398P 

0165 

27 

02 

0169 

BEQ 

DLST63 

♦  YES 

00399P 

0167 

OC 

AF 

A 

INC 

INCNT 

OO-^tOOP 

0169 

86 

FF 

A 

DLST63  LDA 

♦ACTMOD 

?SET  TO  ACTIVE  FOR  NEX 

OO-^OIP 

0168 

97 

B1 

A 

STA 

XFRST 

0  0'402P 

0160 

7E 

018E 

P 

DLST6S  JMP 

I3EXIT 

00-^03 

OO-^O-H 

00-^05 

00'^06P 

0170 

Cl 

3F 

A 

X 

X  CHECK  FOR 

X 

DLST70  CMPB 

STATUS  REQUEST 

♦STCHAR  f*IS  IT  STATUS  CHAR? 

00-^07P 

0172 

26 

OA 

017E 

BNE 

DLST80 

;no 

00^08 
r'  J9P 

017^ 

C6 

FF 

A 

X 

LDB 

♦»FF 

L  tlOP 

0176 

D7 

AC 

A 

STB 

STTASK 

00^11 

00412P 

0178 

C6 

01 

A 

X 

LDB 

♦IGNMOD 

; IGNORE  REST  OF  BYTES 

0  0^U3P 

017A 

D7 

B1 

A 

STB 

XFF-JT 

♦CHECK  END  BIT  BEFORE 

00‘41'^P 

017C 

20 

CB 

01^9 

BRA 

DLST60 

00^15 

0  0'^16P 

017E 

3-^ 

0-^ 

A 

* 

DLST80  PSHS 

B 

♦SAVE  CHAR 

00^17P 

0180 

8E 

0^5E 

A 

LDX 

♦INBCF 

OO-^IBP 

0183 

C6 

3F 

A 

LDB 

♦STCHAR 

♦PUT  IN  PREVIOUS  CHAR 

0  0'I19P 

0185 

BD 

0000 

A 

USE- 

PUTCHR 

00‘^20P 

0188 

35 

O-H 

A 

PULS 

B 

♦RESTORE  CUR  CHAR 

0  0  “^2  IP 

018A 

25 

B6 

01^2 

BCS 

DLST55 

;Q  full  -  ERROR 

00'122P 

018C 

20 

AC 

013A 

BRA 

DLST50 

00  ^*23 
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00«25 

01  6 

X 

C  27 

X 

THE  FOLLOWING  ROUTINE  WILL  SET  THE  BUS  IN 

0o-t28 

* 

ANOTHER 

INTERRUPT  IS  PENDING.  OTHERWISE » 

00429 

* 

EXITING 

FROM  INTERRUPT  WILL  OCCURR. 

00430 

* 

00431 

018E 

P 

I3EXIT  EQU 

* 

00432P 

018E 

4F 

CLRA 

.TOGGLE  INTR  MASK 

00433P 

018F 

B7 

E700 

A 

STA 

HPREGO 

00434P 

0192 

43 

COMA 

00435P 

0193 

B7 

E700 

A 

STA 

HPREGO 

00436P 

00437 

0196 

3B 

RTI 

0  0438 

END 

TOTAL  ERRORS  00000 — 00000 
TOTAL  WARNINGS  00000 — 00000 


OOFF  ACTMOD  000>^9*003^3  00-400 
0000  ALRMDD  00050*00353  00361 
0001  BADIRQ  00028*00153 
0007  BDSTRG  0003-4*00388 
000^  BDUCMD  00031*00319 
0001  BIBIT  00020*0013-4 
00^0  BOBIT  0002-4*001^3 

OOAB  BUSERR  00079*0015-4  0019-4  00321  00337  0037^  00389 
'  J0D6  CLST20  00277  00290* 

OOEO  CLST-40  00291  00298* 

P  OOEC  CLST60  00299  00305* 

P  OOFS  CLST70  00306  00308  00317* 

P  OOFF  CLST80  00313  00321* 

P  00C2  CLSTN  001-41  00275* 

0  0  0^  CM[)BIT  0  0  022*0  01-40 
0002  DACMOD  00052*00357 
00  02  DC  ABIT  0  00^-4*00298 
P  0112  DLSTIO  0  0332  0  03-40* 

P  012C  DLST20  0  03-47  00357* 

P  0132  DLST30  003^-'*  00361* 

P  013A  DLST50  0  0351  00359  00367*00-422 
P  01-42  DLST55  00373*0  039-4  00T21 
P  01-49  DLST60  00365  00369  00379*00-41-4 
P  0161  DLST62  00386  00396* 

P  0169  DLST63  00398  00-^00* 

P  016D  DLST6S  00381  00-‘402* 

P  0170  DLST70  00362  00406* 

P  017E  DLST80  00407  00416* 

P  0104  DLSTN  00135  00138  00330* 

0002  ENDBIT  00021*00137  00350  00380 
R  FORMST  00013*00213 

0020  GETBIT  00023*00146 
R  GETCHR  00014*00234 

E700  HPREGO  00065*00129  00172  00254  00433  00435 

E701  HPREGl  00066*00275 

E702  HPREG2  00067*00174  00187  00330 

E703  HPREG3  00068*00150  00168  00170  00247  00302  00318 
E704  HPREG4  00069*00163  00165 
E70S  HPREG5  00070*00293 


ct  cn 
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E706  HPREG6 
707  HPREG7 
t700  HPREGS 
018E  I3EXIT 

0001  IGNMOD 
0^5E  INBCF 
OOAF  INCNT 
INTBCF 
INTDEV 
DP  0031  INTI3E 
OOFF  INTMOD 
P  0029  IRQERR 
DP  0000  IRai3E 
P  002E  IRQNOT 
R  KINT 

000^  LACBIT 
0003  NOLSTN 
0006  NOTALK 
OOBO  OPMODE 
R  OTCRLF 

0^66  OUTBCF 
O-HD^  OUTBUF 
OOAE  OUTCNT 
0539  OUTEND 
R  PUTCHR 

0002  QUEFUL 
'  iOAA  REGOSU 
00-40  REMBIT 
0008  RLCBIT 
0  0  0^  SPAEilT 
003F  STCHAR 
OOOA  STRTRM 
00 AC  STTASK 
0008  TACBIT 
P  0059  TALK 10 
P  0065  TALK20 
P  0082  TALKS 0 
P  008B  TALK60 
P  008D  TALK70 
P  009E  TALK75 
P  00 AO  TALK80 
P  0  0-48  TALKER 
P  OOE.-F  TALKRT 
0080  UACBIT 
0005  UKINTR 
0001  UUCBIT 
OOBl  XFRST 
00 AD  XINPRG 


00071X 

00072x002^0  00255  003-40 

00064X00065  00066  00067  00068  00069  00070  00071 

00151  00195  00264  00283  00286  00294  00322  00338 

00375  00402  00431X 

00051X00364  00397  00412 

00087X00367  00392  00417 

00083x00399 

00013X00211 

00015x00303 

00008  00163X 

00059X00171 


00147  0Q153X 
00008  00129X 
00130  00157X 
00015X00157 
00041X00331 
00030x00336 
00033X00193 
00084x00281  00285 
00014X00217 

00088X00208  00214  00233  00258  00259  00260 

00089X00209 

00082x00225  00261 


00090X00210 

00014X00216  00368  00393  00419 


00029X00373 

00078X00132  00349  00379 
00038X00282 
00039X00276 
00045x00290 

00058x00346  00406  00418 

00057x00237  00245  00385  00391 

00080x00197  00202  00410 

00040x00188 

00189  00197X 

00204  00208X 

00198  00222X 


00226  00229X 


00218  00223  00233X 


00235  00245X 
00238  00246X 
00144  00187X 
00241  00264X 
00042x00307 


00032x00312 

00043x00305 

00085x00341  00354  00358  00396  00401  00413 
00081x00203  00206  00222  00229  00257 


0007 

0035 
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SECTION  IV 

EXECUTIVE/COMMAND  PROCESSOR 

REFERENCE:  FINAL  REPORT  SECTION  2,  SUBSECTION  E. 3,.... PAGE  2-24 

1 .  EXEC  -  AUTOPROBE  EXECUTIVE 

2.  CMINT  -  COMMAND  INTERPRETOR/PROCESSOR 


PACE  001  HY16EXEC*SAt0  EXEC  HY16EXEC  2^60  EXECUTIVE  PROCESSOR 


00001 

NAM 

EXEC 

'•  02 

OPT 

REL»CRE»NOG 

bv  ;3 

X 

00004 

X 

TTL 

HY16EXEC  2460  EXECUTIVE  PROCESS 

00005 

X 

'  * 

00006 

X  DATE? 

06/29/81 

00007 

X 

10/26/81 

MODS  FOR  DTS-:^ 

00008 

X 

a 

00009 

« 

X  INTERNAL 

DEFINITION  .  r 

00010 

X 

00011 

X 

00012 

XDEF 

EXEC  »  EXCNTR  f  UNLDKY  r  LOADK Y 

00013 

XDEF 

COFFST 

00014 

X 

00015 

X 

00016 

X  EXTERNAL 

DEFINITION 

00017 

X 

00018 

X 

00019 

XREF 

IKBPIA 

f DELAY2  »  ONSTOP  »  DSKOFF 

00020 

XREF 

DSPL  f  START  »  CMINTP  f  TCLRDP 

00021 

XREF 

ONLTEf 

OFFLTE  »  UPPROB  »  DNPROB 

00022 

XREF 

HOPROB 

»  AUTPRB  »  MANPRB » TSTPRB 

00023 

XREF 

ENTER » 

CBHEX  »  CUROFF  »  FLSHYN 

00024 

XREF 

ABSETr 

MATCH  f  RERROR » RSTART 

00025 

XREF 

OFLNEf 

CAMOFF»MVPARK 

00026 

X 

0''027 

X 

t  7.8 

X  KEY  BOARD  LIGHT  EQUATES 

oL  l9 

X 

00030 

0041 

A  LRUN  EQU 

S41 

mUN  LIGHT 

00031 

0043 

A  LLSTOP  EQU 

♦43 

?STOP  LIGHT 

00032 

0035 

A  LUNLOO  EQU 

♦35 

J UNLOAD  LIGHT 

00033 

0034 

A  LLOAO  EQU 

♦34 

»LOAD  LIGHT 

00034 

0032 

A  LOFSET  EQU 

♦32 

J OFFSET  LIGHT 

00035 

X 

00036 

X 

00037 

X  KEY  BOARD  KEY  EQUATES 

00038 

X 

00039 

X 

00040 

0020 

A  KLSTOP  EQU 

♦2D 

» STOP/OFFLINE 

00041 

002C 

A  KRUN  EQU 

♦2C 

; RUN/ONLINE 

00042 

0030 

A  KABRT  EQU 

♦30 

f ABORT 

00043 

0025 

A  KUPDHN  EQU 

♦25 

; OFFLINE  PROBE  UP 

00044 

0026 

A  KUNLOD  EQU 

♦26 

fHOME  PROBE 

00045 

002A 

A  KAUTO  EQU 

♦2A 

?SET  TO  AUTO  MODE 

00046 

■ 

0028 

A  KSTEP  EQU 

♦28 

fSET  TO  STEP  MODE 

00047 

ii 

0029- 

A  KTEST  EQU 

♦29 

?SET  TO  TEST  MODE 

00048 

0031 

A  KINPAD  EQU 

♦31 

f INPUT  DEBUG  ADDR 

00049 

0041 

A  KOSPNX  EQU 

♦41 

; DISPLAY  NEXT  DEBUG  AD 

00050 

i  . 

\ 

0020 

A  KABLGN  EQU 

♦20 

»A/B  ALIGNMENT 

00051 

0022 

A  KLOAD  EQU 

♦22 

;L0AD  HYBRID 

r  ^52 

0024 

A  KPTRIG  EQU 

♦24 

J PROBE  TRIGGER 

t.  _  j53 

0021 

A  KOFSET  EQU 

♦21 

? OFFSET  FOR  HYBRID 

ol  65 

X 

X  OTHER  EQUATES 

00056 

X 

00057 

OOIF 

A  ABFLEN  EQU 

31 

; DEBUG  BUF  LENGTH 

00058 

0003 

A  IDLMOO  EQU 

♦3 

HOLE  MODE 
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00059 

OOFF 

A  EOTCHR  EQU 

♦FF 

;end  of  table  char 

O'* ''AO 

0008 

A  BOFFST  EQU 

♦8 

» OFFSET  BIT  IN  ABFLAG 

G  1 

» 

O0o62 

X 

000A3 

*  ERROR  EQUATES 

Y 

t  ■ 

00  06^ 

X 

00065 

0080 

A  OPABRT  EQU 

«80 

? OPERATOR/FATAL  ABORT 

00066 

0081 

A  lEEEER  EQU 

♦81 

;iEEE  BUS  ERROR 

00067 

X 

00068 

*  LOW  MEMORY  EQUATES 

00069 

X 

00070 

X 

00071 

0010 

A  KEY  EQU 

16 

LAST  KEY  BUTTON  PUSHED 

00072 

00A8 

A  ZDIR  EQU 

168 

CURRENT  Z  DIRECTION 

00073 

00B2 

A  UOFSET  EQU 

178 

USE  OFFSET  FLAG 

0007-^ 

OOAF 

A  INCNT  EQU 

175 

INPUT  MESSAGE  COUNT 

00075 

009F 

A  ONOFFL  EQU 

159 

ONLINE/OFFLINE 

00076 

01F3 

A  DSPADR  EQU 

899 

DISPLAY  ADDR 

00077 

01F5 

A  ADRBUF  EQU 

501 

DISPLAY  BUFFER 

00078 

OlFl 

A  HEXRES  EQU 

897 

JHEX  RESULT  OF  ADDR 

00079 

OOAE: 

A  BUSERR  EQU 

171 

BUS  ERROR  CODE 

00080 

00A2 

A  CURMOD  EQU 

162 

CURRENT  OPERATING  MODE 

00081 

00A7 

A  ABFLAG  EQU 

167 

AB  ALIGNMENT  FLAG 

00082 

OOAl 

A  ONOFSV  EQU 

161 

ONLINE/OFFLiNE  MODE  SA 

00083 

007E 

A  OFFSTF  EQU 

126 

OFFSET  KNOWN  FLAG 

OOOB-'t 

X 

00085 

X 

r  86 

*  HARDWARE 

EQUATES 

01  ,7 

X 

00088 

X 

00089 

E070 

A  LIGHT  EQU 

♦E070 

CPU  LED  LIGHTS 

00090 

E130 

A  FORCE  EQU 

♦E130 

FORCE  PIA 

00091 

E120 

A  BFPIA  EQU 

♦E120 

BOND  FUNCTION  PIA 

00092 

E710 

A  PRSWIT  EQU 

♦E710 

? PROBE  SWITCH 
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0094 

0000 

P  EXEC  EQU 

X 

EXECUTIVE  ENTRY 

«ft95P 

0000 

lOCE 

03FF 

A 

LOS 

#603FF 

INITIALIZE  STACK  AOOR* 

>6 

X 

0'097P 

0004 

86 

40 

A 

LOA 

«440 

ON  BIT  6  LEO 

0098P 

0006 

87 

E070 

A 

STA 

LIGHT 

'  ,  3 

0099 

X 

* 

OlOOP 

0009 

OF 

82 

A 

CLR 

UOFSET 

CLEAR  USE  OFi  OFFSET  FL 

lOlOlP 

0008 

B6 

20 

A 

LOA 

«»20 

SET  FORCE  TO  MIN. 

0102P 

OOOO 

43 

COMA 

/ 

I0103P 

OOOE 

87 

E130 

A 

STA 

FORCE 

/ 

0104 

X 

I0105P 

0011 

80 

0000 

A 

JSR 

IKBPIA 

CLEAR  ALL  LIGHTS 

I010<& 

X 

I0107P 

0014 

8E 

0190 

A 

LOX 

4400 

OELAY  400  M-SECOND 

I0108P 

0017 

80 

0000 

A 

JSR 

OELAY2 

10109 

X 

miio 

X 

TURN  OFF 

OISK 

10111 

X 

>0112P 

O 

o 

80 

0000 

A 

JSR 

OSKOFF 

10113 

X 

I0114P 

OOID 

86 

E121 

A 

LOA 

BFPIA+l 

USE  TARGET  CAMERA 

)0115P 

0020 

84 

F7 

A 

ANOA 

♦♦F7 

J0116P 

0022 

87 

E121 

A 

STA 

BFPIA+l 

30117 

X 

301 18P 

0025 

80 

0000 

A 

JSR 

ONLTE 

ITURN  ON  RUN  LIGHT 

30119P 

0028 

41 

A 

FCB 

LRUN 

)0120P 

0029 

80 

0106 

P 

JSR 

OSPMOD 

fOISPLAY  CURRENT  MODE 

21P 

002C 

OF 

10 

A 

CLR 

KEY 

;INIT  KEY  BUFFER 

)i  i2 

X 

30123 

X 

THE  FOLLOWING  THE  THE  MAIN  CONTROL  LOOP 

D0124 

X 

30125 

002E 

P  EXCNTR  EQU 

X 

D0126P 

002E 

96 

10 

A 

LOA 

KEY 

30127P 

0030 

26 

23 

0055 

8NE 

EXECSO 

LOOP  IF  ZERO 

D0128 

X 

30129P 

0032 

OD 

A8 

A 

TST 

8USERR 

JDID  ANY  BUS  ERRORS  OC 

130130P 

0034 

27 

10 

0  046 

BEO 

EXECIO 

;no 

30131P 

0036 

80 

0000 

A 

JSR 

OSPL 

rYES 

0O132P 

0039 

0225 

P 

FOB 

BUSMSG 

90133 

X 

D0134P 

0038 

80 

0000 

A 

JSR 

TCLROP 

90135P 

003E 

C6 

81 

A 

LOB 

4IEEEER 

D0136P 

0040 

80 

0000 

A 

JSR 

RERROR 

; REPORT  IEEE  BUS  ERROR 

90137P 

0043 

7E 

0078 

P 

JMP 

FTLABT 

f FATAL  ABORT 

90138 

X 

90139P 

0046 

00 

9F 

A  EXEC 10  TST 

ONOFFL 

fIN  OFFLINE  MODE? 

D0140P 

0048 

26 

E4 

.002E 

8NE 

EXCNTR 

?YES 

90141P 

004A 

00 

AF 

A 

TST 

INCNT 

;any  messages  waiting 

D0142P 

004C 

27 

EO 

002E 

BEQ 

EXCNTR 

3  NO 

90143P 

004E 

80 

0000 

A 

JSR 

CMINTP 

;yes»  process 

00144P 

0051 

OA 

AF 

A 

OEC 

INCNT 

;ONE  LESS  MESSAGE 

90145P 

0053 

20 

03 

0056 

BRA 

EXEC50 

f 

v46 

X 

Dr  47P 

0055 

80 

016E 

P  EXEC30  JSR 

KEYPRC 

♦PROCESS  KEY 

.48P 

0058 

80 

0108 

P  EXECSO  JSR 

OSPMOO 

» DISPLAY  CURRENT  MODE 

D0149P 

0058 

20 

01 

002E 

BRA 

EXCNTR 

OOlSO  » 
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152 

» 

>53 

*  STOP  KEY 

PROCESSOR 

» 

x55P 

0050 

C6 

FF 

A 

STOPKY 

LOB 

♦♦FF 

I156P 

005F 

07 

A1 

A 

STB 

ONOFSU 

?SET  TO  OFFLINE 

157 

I 

I158P 

0061 

80 

0000 

A 

JSR 

ONLTE 

% 

159P 

006-9 

93 

A 

FCB 

LLSTOP 

;turn  on  dzac  lites 

I160P 

0065 

BO 

0000 

A 

JSR 

OFFLTE 

I161P 

0068 

91 

A 

FCB 

LRUN 

JTURN  OFF  RUN  LIGHT 

1162 

I163P 

0069 

39 

RTS 

)16^ 

X 

1165 

K  RUN 

KEY  PROCESSOR 

)166 

X 

)167P 

006A 

OF 

A1 

A 

RUNKY 

CLR 

ONOFSU 

3168P 

006C 

BO 

0000 

A 

JSR 

OFFLTE 

)169P 

006F 

93 

A 

FCB 

LLSTOP 

;TURN  OFF  STOP  LIGHT 

3170P 

0070 

BO 

0000 

A 

JSR 

ONLTE 

)171P 

0073 

91 

A 

FCB 

LRUN 

fTURN  ON  RUN  LIGHT 

D172P 

0079 

39 

RTS 

3173 

X 

017-9 

X  ABORT  KEY 

PROCESSOR 

D175 

X 

D176P 

0075 

96 

A2 

A 

ABRTKY 

LDA 

CURMOD 

»GET  CURRENT  MODE 

0177P 

0077 

81 

03 

A 

CMPA 

♦IDLMOD 

>IN  IDLE  MODE? 

D178P 

0079 

26 

08 

0083 

BNE 

ABRTIO 

?NO»PUT  IN  IDLE 

•7-9 

X 

.  iOP 

007E1 

C6 

80 

A 

FTLABT 

LOB 

♦OPABRT 

; REPORT  OPERATOR/FATAL 

0181P 

0070 

BO 

0000 

A 

JSR 

RERROR 

0182P 

0080 

7E 

0000 

A 

JMP 

RSTART 

»YES  ABORT 

0183 

X 

018-9P 

0083 

BO 

0000 

A 

ABRTIO 

JSR 

DSPL 

DISP  ABORT  MSG 

0185P 

0086 

0265 

P 

FOB 

ABRTMS 

0186 

X 

0187P 

0088 

BO 

0000 

A 

JSR 

FLSHYN 

♦FLASH  YES/NO 

0188P 

0088 

26 

OF 

0  09C 

BNE 

ABRT20 

♦NO  OR  ABORT 

0189 

X 

0190P 

0080 

BO 

0000 

A 

JSR 

CUROFF 

TURN  OF  CUURENT  MODE 

0191P 

0090 

BD 

0000 

A 

JSR 

HOPROB 

0192P 

0093 

86 

03 

A 

LDA 

♦IDLMOD 

0193P 

0095 

97 

A2 

A 

STA 

CURMOD 

♦SET  TO  IDLE  MODE 

019-9P 

0097 

C6 

80 

A 

LOB 

♦OPABRT 

♦SET  ABORT  ERR  CODE 

0195P 

0099 

BD 

0000 

A 

JSR 

RERROR 

0196P 

009C 

39 

ABRT20 

RTS 

0197 

X 

0198 

- 

- 

X  A/B 

ALIGNMENT  KEY  PROCESSOR 

0199 

X 

0200P 

0090 

96 

A7 

A 

ABlNKY 

LDA 

ABFLAG 

♦IS  OFFSET  KNOWN? 

0201P 

009F 

85 

09 

A 

BITA 

♦BOFFBT 

0202P 

OOAl 

27 

09 

00  AC 

BEQ 

ABLN90 

♦  NO 

0203 

X 

r~ 

O^P 

00  A3 

80 

0000 

A 

JSR 

ABSET 

,  75P 

00A6 

96 

10 

A 

LDA 

KEY 

»OID  USER  ABORT 

1  i6P 

00A8 

81 

30 

A 

CMPA 

♦KABRT 

0207P 

OOAA 

27 

C9 

0075 

BEQ 

ABRTKY 

;yes 

0208P 

00  AC 

39 

A8LN90 

RTS 

0209 

X 
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) 

X 

w 

UP/DOWN 

PROBE  KEY 

IF 

00  AD 

OD 

A-'J 

A  UPDNKY  TST 

ZDIR 

I  CURRENTLY  PROBE  UP? 

JP 

i 

OOAF 

27 

03 

OOB^ 

X 

BED 

UPDNIO 

»YESr  CO  DOWN 

t 

5P 

OOBl 

7E 

0000 

A 

JMP 

UPPROB 

»NOf  RAISE  PROBE 

iP 

f 

OOB^ 

7E 

0000 

A  UPON 10  JMP 

w 

DNPROB 

♦yes  / 

i. 

3 

a 

X 

w 

UNLOAD  KEY  PROCESSOR 

►  *  i 

f 

[)P 

00B7 

BD 

0000 

A  UNLDKY  JSR 

DSPL 

LP 

OOBA 

0251 

P 

FOB 

UNLMSG 

? DISPLAY  UNLOAD  MSG 

2P 

OOBC 

BD 

0000 

A 

JSR 

ONLTE 

3P 

OOBF 

35 

A 

FCB 

LUNLOD 

JTURN  ON  UNLOAD  LIGHT 

IP 

OOCO 

BD 

0000 

A 

JSR 

MVPARK 

fMOVE  TO  PARK 

iP 

00C3 

BD 

0000 

A 

JSR 

OFFLTE 

6P 

00C6 

35 

A 

FCB 

LUNLOD 

?TURN  OFF  UNLOAD  LIGHT 

7F 

00C7 

39 

RTS 

B 

X 

9 

X 

AUTO  KEY 

PROCESSOR 

0 

X 

IP 

00C8 

D<6 

A2 

A  AUTOKY  LDB 

CURMOD 

2P 

OOCA 

Cl 

03 

A 

CMPB 

♦IDLMOD 

? INVALID  IN  IDLE 

3P 

OOCC 

27 

08 

0  0D6 

BEG 

AUT020 

JSKIP  NEXT  TWO 

X 

5P 

OOCE 

BD 

0000 

A 

JSR 

AUTPRB 

» VALID? 

6P 

OODl 

25 

03 

00D6 

BCS 

AUT020 

;no 

7 

X 

8F' 

00D3 

BD 

006A 

P  AUTOlO  JSR 

RUNKY 

;turn  to  run  mode 

9P 

00D6 

39 

AUTO20  RTS 

0 

X 

1 

o 

X 

STEP  KEY 

PROCESSOR 

3P 

00D7 

D6 

A2 

m 

A  STEPKY  LDB 

CURMOD 

■^P 

00D9 

Cl 

03 

A 

CMPB 

♦IDLMOD 

? VALID  MODE 

5P 

OODB 

27 

F9 

00D6 

BEG 

AUTO20 

;no 

6 

X 

7P 

OODD 

BD 

0000 

A 

JSR 

MANPRB 

8P 

OOEO 

2^ 

FI 

00D3 

BCC 

AUTOlO 

? VALID  CHANGE 

i9P 

00E2 

39 

RTS 

>0 

X 

il 

#7 

X 

w 

TEST  KEY 

PROCESSOR 

>4^ 

i3P 

00E3 

BD 

0000 

m 

A  TESTKY  JSR 

TSTPRB 

? VALID? 

4P 

00E6 

25 

EE 

OOD6 

«ar 

BCS 

AUTO20 

;no 

15 

6P 

00E8 

BD 

0000 

A  TEST 10  JSR 

OFLNE 

;7P 

OOEB 

96 

10 

A 

LDA 

KEY 

8P 

OOED 

81 

30 

A 

CMPA 

♦KABRT 

fWAS  ABORT  PRESSED? 

19P 

OOEF 

26 

09 

OOFA 

BNE 

TEST20 

;no 

OP 

OOFl 

BD 

0075 

P 

JSR 

ABRTKY 

»00  ABORT  PROCESSING 

>1 

X 

.2P 

00F5 

96 

A2 

A 

LDA 

CURMOD 

;D1D  we  ABORT  TEST  MOD 

.3P 

00F6 

81 

03 

A 

CMPA 

♦IDLMOD 

i^P 

OOFB 

26 

EE 

GOES 

BNE 

TEST 10 

;no 

.5P 

OOFA 

39 

TEST20  RTS 

,6  » 

7  K  DEBUG  INPUT  ADDRESS  KEY  PROCESSOR 


006  HY16EXEC.SAt0  EXEC  HY16EXEC  2^60  EXECUTIVE  PROCESSOR 


»8 

.9P 

OOFE: 

BD 

0000 

A 

ZNADKY 

JSR 

ENTER 

OP 

OOFE 

023 A 

P 

FDB 

INPMSG 

IP 

0100 

15 

A 

FCB 

21 

'2P 

0101 

05 

A 

FCB 

5 

'3 

M 

,^p 

0102 

^D 

TSTA 

'SP 

0103 

102B 

FF6E 

0075 

LBMI 

ABRTKY 

'6 

- 

M 

VP 

0107 

lOBF 

01F3 

A 

STY 

DSPADR 

{ENTER  THE  ADDRESS 


{USER  ABORT?. 


{YES 


ENTRY  POINT  FOR  DISPLAY  NEXT  ADDRESS 
KEY  PROCESSOR 


OlOB  BD  0191  P  DSNXKY  JSR  DISPLY 
OlOEBD  0000  A  JSR  TCLRDP 
0111  39  RTS 


PROBE  TRIGGER  KEY 

WHEN  THE  USER  PRESSES  THIS  KEY»  A  ONE-S 
WILL  BE  TRIGGERED  TO  CLOSE  THE  PROBE  SW 
FOR  A  FEW  MILLISECONDS  SO  THAT  THE  DTS- 
CAN  READ  THE  DESIRED  INFORMATION 


P2P 

0112 

OD 

A-^ 

A 

PRTRKY 

TST 

ZDIR 

;IS  THE  PROBE  DOWN? 

93P 

011^ 

27 

09 

OllF 

BEG 

PRTR20 

{NO 

K 

95P 

0116 

96 

A2 

A 

LDA 

CURMOD 

P6P 

0118 

81 

02 

A 

CMPA 

♦2 

{IN  MO  OR  Ml? 

97P 

OllA 

2^ 

03 

OllF 

BCC 

PRTR20 

{ NO » ILLEGAL  KEY 

98 

K 

99P 

one 

7D 

E710 

A 

PRTRIO 

TST 

PRSWIT 

{CLOSE  SWITCH 

OOP 

OllF 

39 

PRTR20 

RTS 

OFFSET  KEY  PROCESSOR 


THIS  PROCESSOR  WILL  CALCULATE  THE  NECES 


05 

X 

CAMERA 

OFFSET  VALUES  SO  THAT  THE  PROBE 

06 

M  1 

APPEAR 

TO  BE  OVER  A  DESIRED  POINT. 

07 

X 

08P 

0120 

80 

09 

012B 

OFSTKY 

BSR 

COFFST 

{CALC  CAMERA  OFFSET 

09 

X 

lOP 

0122 

96 

10 

A 

OFST30 

LDA 

KEY 

IIP 

012^ 

81 

30 

A 

CMPA 

♦KABRT 

{DID  USER  ABORT? 

12P 

0126 

1027 

FF-^B 

0075 

LBEG 

ABRTKY 

{YES 

13P 

012A 

39 

RTS 

{NO 

1^ 

X 

15 

X  MINI-PROCESSOR  FOR 

CAMERA  OFFSET 

16 

X 

17P 

012E! 

BO 

0000 

A 

COFFST 

JSR 

ONLTE 

{TURN  ON  OFFSET  LIGHT 

IBP 

012E 

32 

A 

FCB 

LOFSET 

19 

X 

20P 

012F 

BO 

0000 

A 

JSR 

CAMOFF 

{OFFSET  CALC 

21P 

0132 

96 

10 

A 

LDA 

KEY 

22P 

013^ 

81 

30 

A 

CMPA 

♦KABRT 

{DID  UrZR  ABORT? 

23P 

0136 

27 

06 

013E 

BEG 

COFFl 

{YES 

24P 

0138 

96 

A7 

A 

LDA 

ABFLAG 

{SET  OFFSET  KNOWN  BIT 

25P 

013A 

8A 

0^ 

A 

ORA 

♦BOFFST 

007  HY16EXEC.SA:0  exec  HY16EXEC  2460  EXECUTIVE  PROCESSOR 


p 

013C 

97 

A7 

A 

M 

STA 

ABFLAG 

p 

013E 

BD 

0000 

A 

COFFl 

JSR 

OFFLTE 

JTURN  OFF  OFFSET  LIGHT 

'P 

0141 

32 

A 

FCB 

LOFSET 

p 

0142 

39 

RTS 

rS 

f 

1 

*  s 

*  LOAD  HYBRID  KEY  PROCESSOR  ^ 

1 

1 

r. 

X 

THIS  PROCEDURE 

MUST  BE  DONE  FOR  ALL 

» 

X 

HYBRIDS 

BEFORE 

ANY  MODES  CAN  BE 

' 

X 

PERFORMED.  THIS 

KEY  PERFORMS  TWO  FUNCTI 

X 

1 .  CALCULATES 

THE  CAMERA  OFFSET  AND  2. 

• 

X 

SETS  AND  ALIGNS 

THE  A/B  ALIGNMENT  POINT 

1 

•P 

0143 

BD 

0000 

A 

LOADKY  JSR 

ONLTE 

?TURN  ON  LOAD  LIGHT 

IP 

0146 

34 

A 

FCB 

LLOAD 

Jp 

0147 

BD 

0000 

A 

JSR 

MUPARK 

;mode  to  park 

»p 

014A 

BD 

0000 

A 

JSR 

DSPL 

5P 

f 

014D 

0271 

P 

FDB 

LOADMS 

b 

^P 

014F 

BD 

0000 

A 

x 

JSR 

TCLRDP 

3P 

a 

0152 

26 

14 

0168 

BNE 

L0AD15 

?USER  ABORTED 

r 

}p 

0154 

96 

7E 

A 

JK 

LDA 

OFFSTF 

;IS  OFFSET  KNOWN? 

IP 

0156 

81 

01 

A 

CMPA 

♦  1 

2P 

0158 

27 

OB 

0165 

W 

BEQ 

LOADl 0 

?YESf  SKIP  OFFSET 

a 

^p 

015A 

BD 

0000 

A 

JSR 

HOPROB 

JHOME  PROBE 

5P 

015D 

8D 

CC 

012B 

BSR 

COFFST 

;CALC  OFFSET 

£.P 

OISF 

96 

10 

A 

LDA 

KEY 

7P 

0161 

81 

30 

A 

CMPA 

♦KABRT 

JDID  USER  ABORT? 

3P 

0163 

27 

03 

0168 

BEG 

LOAD 15 

;yes 

9 

X 

OP 

0165 

BD 

0000 

A 

LOAD 10  JSR 

ABSET 

; ALIGN  AB 

1 

2P 

0168 

BD 

0000 

A 

m 

LOADl 

5  JSR 

OFFLTE 

»TURN  OFF  LOAD  LIGHT 

3P 

016B 

34 

A 

FCB 

LLOAD 

^  M 

5P  016C  ZO  B4  0122  LOAD50  BRA 

(,  M 


OFST30 


008  HY16EXEC*SA:0  exec  HY16EXEC  2^60  EXECUTIV^E  PROCESSOR 


X 

*  THE  FOLLOWING  ROUTINE  WILL  DETERMINE 

*  WHICH  KEY  WAS  LAST  PRESSED  AND  VECTOR 

*  THE  EXECUTIVE  PROCESSOR  TO  THE  KEY 

*  PROCESSOR  FOR  THAT  PARTICULAR  KEY. 


016E 

8E 

0289 

P 

KEYPRC 

LDX 

♦KEYTBL 

JPTR  TO  KEY  aUMP  TABLE 

0171 

108E 

0010 

A 

LDY 

♦KEY 

? POINT  TO  KEY 

> 

0175 

C6 

01 

A 

LDB 

♦  1 

1 MATCH  COUNT 

0177 

8D 

0000 

A 

JSR 

MATCH 

;DID  a  MATCH  OCCUR? 

y 

017A 

25 

12 

018E 

W 

8CS 

KEYRTN 

»NO 

z- 

017C 

96 

9F 

A 

LDA 

ONOFFL 

;SAVE  CUR  ONLINE/OFFLI 

P 

017E 

97 

A1 

A 

STA 

ONOFSV 

=* 

0180 

86 

FF 

A 

LDA 

♦♦FF 

?SET  TO  OFFLINE/BUSY 

P 

0182 

97 

9F 

A 

STA 

ONOFFL 

=• 

018-^ 

EC 

8^ 

A 

LDD 

OrX 

JGET  RELATIVE  BRANCH 

P 

0186 

30 

88 

A 

LEAX 

DfX 

;MAKE  ABSOLUTE 

F’ 

0188 

AD 

8‘<> 

A 

JSR 

OfX 

?GO  TO  ROUTINE 

P 

018A 

96 

A1 

A 

LDA 

ONOFSV 

» RESTORE  ONLINE/OFFLIN 

F- 

018C 

97 

9F 

A 

STA 

ONOFFL 

P 

OIBE 

OF 

10 

A 

KEYRTN 

CLR 

KEY 

JINIT  KEY 

F’ 

0190 

39 

RTS 
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M 

*  NAME)  OISPLY 

M 

m  function:  to  display  the  next  8  BYTES 

*  OF  MEMORY  TO  THE  KEYBOARD  DISPLA 

*  THE  START  ADDRESS  IS  POINTED  TO 

K  DSPADR. 

X 

X  CALLING  sequence:  JSR  DI8PLY' 

X 

X  UPON  return:  DSPADR  WILL  AUTOMATICALLY 

X  UPADTED  TO  POINT  TO  NEXT 

X  BYTES  OF  DATA. 


X 


1191 

3-^ 

AO 

A 

DISPLY  PSHS 

U 

:SAVE  REG 

0193 

8E 

01F5 

A 

LDX 

♦ADRBUF 

1 FORMAT  BUFFER 

0196 

86 

20 

A 

LDA 

«i2Q 

0198 

C6 

IF 

A 

w 

LOB 

♦ABFLEN 

> LENGTH  OF  BUFFER 

019A 

A7 

80 

A 

DISPIO  STA 

»X+ 

: BLANK  BUFFER 

019C 

SA 

DEC8 

019D 

26 

FB 

019A 

8NE 

DISPIO 

•K 

X 

OUTPUT  THE  START  ADDRESS  IN  HEX 

019F 

B6 

01F3 

A 

X 

LDA 

DSPADR 

;GET  MSB  OF  CUR  ADDR 

01A2 

80 

0000 

A 

JSR 

CBHEX 

: CONVERT  TO  HEX 

OlAS 

01F5 

A 

FDB 

ADRBUF 

01A7 

86 

OlFA 

A 

LDA 

DSPADR+1 

?GET  MSB  OF  CUR  ADDR 

OlAA 

80 

0000 

A 

JSR 

CBHEX 

: CONVERT  TO  NEXT 

01  AO 

01F7 

A 

FOB 

ADRE.UF+2 

X 

W 

DISPLAY  8 

BYTES 

OlAF- 

CE 

OlFB 

A 

JK 

LDU 

♦ADRBUF+6 

OIBZ 

C6 

08 

A 

LOB 

«8 

018^ 

10  BE 

01F3 

A 

LDY 

DSPADR 

0188 

A6 

AO 

A 

D1SP30  LDA 

»Y+ 

?GET  BYTE 

018A 

80 

0000 

A 

JSR 

CBHEX 

? CONVERT  TO  HEX 

018D 

OlFl 

A 

FDB 

HEXRES 

OIBF 

BE 

OlFl 

A 

X 

LDX 

HEXRES 

?GET  HEX  RESULT 

01C2 

AF 

CA 

A 

STX 

OfU 

; STORE  IN  FORMAT  BUFFE 

OICA 

33 

A3 

A 

Xk 

LEAU 

3rU 

? UPDATE  FORMAT  POINTER 

01C6 

5A 

DECS 

01C7 

26 

EF 

0188 

8NE 

DISP30 

01C9 

86 

OD 

A 

w 

LDA 

♦«0D 

JEND  OF  MESSAGE 

OICB 

A7 

CA 

A 

STA 

fU 

' 

OICD 

lOBF 

01F3 

A 

STY 

DSPADR 

1 UPDATE  CUR  DISPLAY  AD 

OlDl 

80 

0000 

A 

JSR 

DSPL 

? DISPLAY  TO  KEYBOARD 

OIDA 

01F5 

A 

r'DB 

ADRBUF 

01D6 

35 

CO 

A 

Ml 

PULS 

U»PC 

,0  HY16EXEC*SA:0  exec  HYiAEXEC  2^60  EXECUTIVE  PROCESSOR 


X 

X  THIS  ROUTINE  WILL 
X  CURRENT  OPERATING 
X  KEYBOARD  DISPLAY* 


X 


I1D8 

96 

A2 

A 

DSPMQD 

LDA 

CURMOD 

}1DA 

26 

07 

01E3 

BNE 

DS2A 

IlDC 

BD 

0000 

A 

JSR 

DSPL 

)1DF 

OlFD 

P 

FDB 

AUTMSG 

)1E1 

20 

19 

OlFC 

BRA 

DSPRTN 

)1E3 

^A 

xc 

DS2A 

DECA 

31EA 

26 

07 

OlED 

BNE 

DS2B 

)1E6 

BD 

0000 

A 

JSR 

DSPL 

31E9 

0207 

P 

FDB 

STPMSG 

DIEB 

20 

OF 

OlFC 

BRA 

DSPRTN 

DIED 

AA 

DS2B 

DECA 

OlEE 

26 

07 

01F7 

BNE 

DS2C 

DIFO 

BD 

0000 

A 

JSR 

DSPL 

01F3 

0211 

F- 

FDB 

TS1MSG 

D1F5 

20 

05 

OlFC 

BRA 

DSPRTN 

01F7 

BD 

0000 

A 

X 

DS2C 

JSR 

DSPL 

OlFA 

021B 

P 

FDB 

IDLMSG 

OlFC 

39 

DSPRTN 

RTS 

X 


DISPLAY  THE 
MODE  TO  THE 


»IN  AUTO  MODE 

;no  x 


♦IN  STEP  MODE? 
♦  NO 
I  YES 


♦TEST  MODE? 
♦  NO 


♦ASSUME  IDLE 


}  hyiicmdp«sa:o  com and  command  processor 


»  ROUTINE  TO  MATCH  STRINGS.  LEADINGS  BLANKS 

*  SOURCE  STRING  (PASSED  IN  Y-REG>  WILL  BE  SU 

*  AND  VALIDITY  OF  THE  COMMAND  DETERMINED.  IF 

*  MATCH  OCCURS » THE  CARRY  BIT  WILL  BE  CLEARED 

*  THE  X-REG  WILL  CONTAIN  THE  ADDRESS  OF  THAT 
«  PARTICULAR  COMMAND  PROCESSOR.  JSr  THERE  IS 

*  MATCH.  THE  CARRY  WILL  RETURN  SET. 

X  ^ 

X  CALLING  parameters:  LDX  tTABLE  POINTE 
X  LDY  source  POINTE 

X  LDB  MATCH  COUNT 

X  JSR  MATCH 

X 

X  note:  1)  X  MAY  BE  USED  AS  A  DONT  CARE  CH 
X  2)  ALL  STRINGS  MUST  BE  OF  EQUAL  LE 

X 


009F 

P 

MATCH  EQU 

X 

09F 

D7 

AO 

A 

STB 

MTCNT 

.SAVE  MATCH  COUNT 

OAl 

109F 

CF 

A 

STY 

SRCPTR 

JSAVE  SOURCE  PTR 

x 

X  MATCH  LOOP 

W 

OA-^ 

A6 

80 

A 

MATCH2  LDA 

f  X+ 

.GET  TABLE  CHAR 

0A6 

81 

00 

A 

CMPA 

♦DONTCR 

:IS  IT  DONT  CARE? 

0A8 

27 

0-^ 

OOAE 

BEG 

MATCH3 

?YES.  AUTOMATCH 

OAA 

A1 

A‘‘» 

A 

)K 

CMPA 

O.Y 

: MATCH  SOURCE  CHAR? 

lOAC 

26 

08 

00B6 

BNE 

MATCH5 

;no 

lOAE 

31 

21 

A 

X 

MATCH3  LEAY 

l.Y 

lOBO 

5A 

OECB 

? MATCH  COMPLETE? 

lOBl 

26 

FI 

OOA^ 

BNE 

MATCH2 

;no 

X  MATCH  COMPLETE  -  GEl 

■  COMMAND  PROCESSOR 

I0B3 

1C 

FE 

A 

m 

ANDCC 

♦♦FE 

)0B5 

39 

RTS 

X 

X  THIS  ENTRY  DOES  NOT  MATCH.  FLUSH  THROUGH  T 
X  NEXT  ENTRY  IF  ANY 


X 


)0B6 

5A 

MATCHS 

DECB 

I0B7 

3A 

ABX 

; POINT  TO  END  OF  STRIN 

I0B8 

30 

02 

A 

X 

LEAX 

2.x 

:SKIP  JUMP  VECTOR 

lOBA 

A6 

8^ 

A 

LDA 

O.X 

I06C 

81 

FF 

A 

CMPA 

♦EOTCHR 

; DISPLAY  END  CHAR 

)0BE 

27 

07 

00C7 

BEQ 

MATCH7 

JYES 

loco 

109E 

CF 

A 

LDY 

SRCPTR 

.CONTINUE  ON 

)0C3 

D6 

AO 

A 

LDB 

MTCNT 

IOCS 

20 

DO 

OOA-? 

lir 

BRA 

MATCH2 

)0C7 

lA 

01 

A 

MATCH7 

ORCC 

♦  1 

)0C9 

39 

RTS 

hyiicmdp*sa:o  com and  command  processor 


M 

*  GETCHR  -  IS  DESIGNED  TO  FETCH  A  SINGLE  BYT 

*  FROM  THE  CIRCULAR  QUEUE  BUFFER. 

K  ROUTINE  RETURNS  WITH  THE  CARRY  SE 

*  BUFFER  WAS  EMPTY.  OTHERWISE  THE 

*  IS  CLEAR  AND  THE  CHARACTER  IS  RET 

*  IN  THE  B-REG.  r. 

M 

*  CALLING  parameters:  ldx  ♦bcf  pointe 

X  JSR  GETCHR 

M 


0086 

P 

GETCHR 

EQU 

M 

186 

3-^ 

20 

A 

PSHS 

Y 

)88 

lOAE 

02 

A 

LDY 

2»X 

GET  DEL  POINTER 

leB 

lOAC 

8^ 

A 

CMPY 

OfX 

;IS  INS=DEL? 

)8E 

27 

FI 

0081 

W 

BEG 

PUTC30 

JYESf  BUFFER  EMPTY 

)90 

E6 

AO 

A 

LDB 

»Y+ 

♦GET  NEXT  CHAR 

392 

10  AC 

0^ 

A 

CMPY 

?AT  EOB? 

395 

26 

03 

009A 

BNE 

GETC30 

♦  NO 

M 

*  SET 

DEL  1 

POINTER  TO 

BOB 

397 

lOAE 

06 

A 

LDY 

6»X 

;GET  bob  POINTER 

09A 

lOAF 

02 

A 

GETC30 

STY 

2»X 

J UPDATE  BCF 

D9D 

20 

DD 

007C 

BRA 

PUTC20 

3  hyiicmdp.8a:o  com and  command  processor 


m. 

»  QUEUE  INPUT  ROUTINE 

*  THIS  ROUTINE  IS  DESIGNED  TO  PUT  A  CHAR 

»  INTO  A  CIRCULAR  QUEUE  BUFFER.  UPON  RETU 

w  IF  THE  CARRY  IS  CLEAR r  THE  CHARACTER  WA 

«  STORED  IN  THE  BUFFER  AND  THE  BUFFER 

*  POINTERS  WERE  UPDATED.  OTHERWISE r  THE 

*  CARRY  IS  SET  INDICATING  THAT  THE  BUFFER 

*  FULL. 

M 

*  CALLING  parameters:  LDB  CHAR 


0065 

P 

*  LDX  tBCF  POIN 

*  JSR  PUTCHR 

X 

X  note:  the  b-reg  is  saved. 

X 

PUTCHR  EQU  * 

065 

3^ 

20 

A 

PSHS  Y 

JSAVE  REGISTERS 

067 

lOAE 

8^ 

A 

LDY  0»X 

JGET  INS  POINTER 

06A 

E7 

AO 

A 

STB  »Y+ 

W 

♦STORE  CHAR 

06C 

10  AC 

0-4 

A 

CMPY  -^.X 

:iS  INS=EOB? 

i06F 

26 

03 

007^ 

BNE  PUTCIO 

X 

*  SET  INSERT  POINTER 

W 

♦  NO 

=  BOB 

•  071 

lOAE 

06 

A 

LDY  6»X 

;get  bob 

107“^ 

10  AC 

02 

A 

PUTCIO  CMPY  2»X 

♦IS  INS=DEL? 

>077 

27 

08 

0081 

BEG  PUTC30 

W 

?YES^  buffer  IS  FULL 

1079 

lOAF 

A 

JR 

STY  0»X 

: UPDATE  BCF 

)07C 

35 

20 

A 

PUTC20  PULS  Y 

I07E 

)080 

1C 

39 

FE 

A 

ANDCC  ♦♦FE 

RTS 

W 

? RETURN  CC 

)081 

35 

30 

A 

JR 

PUTC30  PULS  XfY 

- 

>083 

)085 

lA 

39 

01 

A 

ORCC  ♦! 

RTS 

; RETURN  CS 

07  HYliCMDP.SAtO  COHANO  COHMAND  PROCESSOR 


0059 

27 

09 

0064 

BEQ 

CMIN70 

)NO 

005B 

C6 

32 

A 

LOB 

6BADCTR 

lYESr  ERROR 

005D 

20 

02 

0061 

BRA 

CMIN60 

' 

K  ERROR  - 
««# 

UNKNOWN  COHMAND 

005F 

C6 

30 

A 

CMIN50 

LDB 

6UNKCM0 

0061 

BD 

015B 

P 

CMIN60 

JSR 

ERROR 

006A 

39 

CM1N70 

RTS 
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K  COMMAND  INTERPRETOR 


.P  0000  OF 

A9 

A  CMINTP 

CLR 

OVRFLW 

mESET  BUF  OVERFLOW 

IP  0002  BE 

OlAA 

A 

LDX 

♦EXBUFR 

•  » 

)P  0005  C6 

24 

A 

LDB 

6BUFLEN 

\P  0007  86 

20 

A 

LDA 

**20 

?  BLANK  OUT  ^FFER 

5P  0009  A7 

80 

A  CMIN15 

STA 

f  x+ 

^P  OOOB  SA 
rp  OOOC  26 

FB 

0009 

DECB 

BNE 

CMIN15 

3 

?P  OOOE  108E 

OlAA 

A 

LDY 

4EXBUFR 

lEXEC  BUFFER  AREA 

)P  0012  86 

24 

A 

LDA 

♦BUFLEN 

>MAX  COMMAND  STRING 

LP  001^  8E 

045E 

A  CMIN20 

LDX 

♦INBCF 

2P  0017  BD 

0086 

P 

JSR 

GETCHR 

;GET  CHAR  FROM  BUF 

3P  OOIA  25 

15 

0031 

BCS 

CMIN37 

; BUFFER  EMPTY 

5P  00 1C  E7 

AO 

A 

STB 

»Y+ 

JSAUE  CHAR 

6P  00 IE  Cl 

OA 

A 

CMPB 

•STRTRM 

;end  of  string? 

7p  0020  27 

IB 

003D 

BEG 

CMIN40 

»YES 

B 

?P  0022  ^A 

OP  0023  26 

EF 

0014 

OECA 

BNE 

CMIN20 

;max  count  reached 
;no 

1 

2 

*  ERROR  -  THE  COMMAND 

STRING  IS  TOO  LONG, 

3 

5P  0025  BE 

045E 

*  ABORT  THIS  STRING, 

X 

A  CMIN35  LDX  tlNBCF 

6P  0028  BD 

0086 

F- 

JSR 

GETCHR 

;GET  NEXT  CHAR 

7P  002B  25 

04 

0031 

BCS 

CMIN37 

>NONE»  BUFFER  NOW  EMPT 

BP  002D  Cl 

OA 

A 

CMPB 

♦STRTRM 

fEND  OF  STRING  CHAR? 

9P  002F  26 

F4 

0025 

BNE 

CMIN35 

?KEEP  FLUSHING  Q 

0 

IP  0031  C6 

OD 

A  CMIN37 

LDB 

**0D 

2P  0033  E7 

AO 

A 

STB 

»Y+ 

3P  0035  C6 

OA 

A 

LDB 

««0A 

^P  0037  E7 

AO 

A 

STB 

»Y+ 

5 

6P  0039  C6 

FF 

A 

LDB 

♦♦FF 

7P  003B  D7 

A9 

A 

STB 

OVRFLW 

B 

9 

0 

IP  003D  BE 

0531 

» 

*  PARSE  THE 

X 

P  CMIN40  LDX 

STRING 

♦CMDTBL 

»PTR  TO  COMMAND  TABLE 

2P  00^0  108E 

:  OlAA 

A 

LDY 

♦EXBUFR 

;PTR  TO  CUR  COMMAND 

3P  004^  C6 

02 

A 

LDB 

♦2 

» LENGTH  OF  COMMAND 

'^P  0046  BO 

009F 

P 

JSR 

MATCH 

? VALID  COMMAND? 

5P  0049  25 

14 

005F 

BCS 

CMIN50 

;no 

6  ' 

7P  004B  EC 

84 

X 

A 

LDD 

OrX 

;get  rel  ofst  to  routi 

BP  004D  30 

BB 

A 

LEAX 

DrX 

JMAKE  ABSOLUTE 

9 

OP  004F  D6 

A3 

X 

A 

LDB 

PROBER 

»PASS  IF  THIS  IS  'SE' 

IP  0051  OF 

A3 

A 

CLR 

PROBER 

; CLEAR  CODE 

2P  0053  OF 

A6 

A 

CLR 

ESTATE 

» CLEAR  ERROR  FLAG 

3 

4P  0055  AD 

84 

X 

A 

JSR 

OfX 

; VECTOR  TO  PROCESSOR 

5P  0057  OD 

A9 

A 

TST 

ODRFLW 

JDID  BUF  OVERFLOW  OCCU 

■4 
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5 

6 

7 

8 
9 
0 
1 
2 
’3 
4 
»5 
6 
7 
>8 

9 

10 
)1 
12 
)3 
)4 


X 

XXXXXXXXKKXXXKMUKKK 

X 

X  name:  command  processor 

X  V"**  r 

X  function:  to  interpret  commands  sent  by 
X  THE  host  and  EXECUTE  ITS 

X  INSTRUCTIONS.  « 

3lt  ^  ^ 

X  CALLING  sequence: 

X  JMP  CMINTP 

X 

X  note:  whenever  the  state  of  'INCNT*  bec 

X  NON-ZERO.  THIS  MEANS  THAT  A  COMMA 

X  IS  WAITING  TO  BE  INTERPRETED  IN  T 

X  INPUT  QUEUE. 


X 


X 

REV 

DATE 

BY 

REASON  FO 

X 

<-4- 

X 

00 

10/22/81 

SJF 

INITIAL  R 

)5 


X 

X 


GE  00^  hyiicmdp»sa:o  comand  command  processor 


139 

MO 

00A2 

A  CURMOD 

X 

EQU 

162 

; CURRENT  OPERATION  MOD 

\1 

OOAE 

A  OUTCNT 

EQU 

17^ 

: OUTPUT  MESSAGE  COUNT 

1^2 

0-1D-1 

A  OUTBUF 

EQU 

1236 

? OUTPUT  BUFFER 

1-^3 

IM 

0539 

A  OUTEND 

X 

EQU 

1337 

1^5 

1^6 

X  BUFFER  CONTROL  FIELDS  (BCF> 

X 

1^7 

1-^8 

1-^9 

150 

151 

X  format: 

X 

X 

X 

X 

NEXT  AUAIL  RMB  2 
last:  RMB  2 

END  OF  buffer:  RMB  2 

BEG  OF  buffer:  RMB  2 

152 

0-15E 

A  INBCF 

EQU 

1118 

: INPUT  BCF 

153 

0^66 

A  OUTBCF 

EQU 

1126 

? OUTPUT  BCF 

15“^ 

OOAF 

A  INCNT 

EQU 

175 

? INPUT  MSG  COUNT 

1155 

OlAA 

A  EXEUFR 

EQU 

^26 

:NEXT  COMMAND  BUFFER 

156 

OOAO 

A  MTCNT 

EQU 

160 

JGET  MATCH  COUNT 

1157 

OOCF 

A  SRCPTR 

EQU 

207 

158 

00A6 

A  ESTATE 

EQU 

166 

;SET  WHEN  ERROR  OCCURS 

1159 

00A7 

A  ABFLAG 

EQU 

167 

»=*-13  WHEN  GIUEN 

160 

00A8 

A  DEMODE 

EQU 

168 

?SET  WHEN  D»E  COORD 

1161 

009E 

A  UALSGN 

EQU 

158 

?SET  WHEN  SIGN  OF  COOR 

1162 

OOBF 

A  NUMBUF 

EQU 

191 

; STORAGE  BUF  FOR  NUMER 

1163 

00C5 

A  TEMPX 

EQU 

197 

;temp  storage  for  x  bi 

116-1 

00C7 

A  TEMPY 

EQU 

199 

;SAME  FOR  Y 

1165 

OOC-1 

A  XDSIGN 

EQU 

196 

;SICN  OF  X  OR  D  COORD 

66 

00C9 

A  YESIGN 

EQU 

201 

:SIGN  OF  Y  OR  E  COORD 

.67 

00A9 

A  OURFLW 

EQU 

169 

;set  when  command  ouer 

1168 

009F 

A  ONOFFL 

EQU 

159 

; ONLINE/OFFLINE  FLAG 

3169 

01D3 

A  CXYPOS 

EQU 

^67 

?X»Y  FORMATTED  BUFFER 

1170 

OlEl 

A  CDEPOS 

EQU 

-181 

»D»E  FORMATTED  EiUFFER 

3171 

009-1 

A  CXSAUE 

EQU 

1^8 

?SAUE  CURRENT  X  POS 

3172 

0096 

A  CYSAVE 

EQU 

150 

JSAUE  CURRENT  Y  POS 

3173 

317^ 

0077 

A  ZSAUE 

X 

EQU 

119 

fSAUE  Z  DIRECTION 

3175 

008C 

A  SREFAX 

EQU 

1-10 

fSAUE  RAX  F-OS 

3176 

0  08E 

A  SREFAY 

EQU 

1^2 

;SAUE  RAY  POS 

3177 

0090 

A  SREFBX 

EQU 

IM 

?SAUE  RBX  POS 

3178 

3179 

0092 

A  SREFBY 

X 

EQU 

1^6 

rSAUE  RBY  POS 

3180 

3181 

X  HARDWARE 

X 

EQUATES 

; CLOSE  TOUCHDOWN  SWITC 

3182 

3183 

E710 

A  PRSWIT 

EQU 

♦E710 

- 

£  003 

HYllCMDP.SAtO 

COMANO  COMMAND 

PROCESSOR 

)81 

X 

182 

X  OPERATIONS 

MODE  EQUATES  -  "CURMOD*  CAN  TAK 

33 

X 

ANY  ONE  OF  THE  FOLLOWING  STA 

18^ 

X 

—  4 

)es 

0003 

A  lOLMOO 

EQU 

«03 

tIDLE  MODE 

)86 

0002 

A  TSTMOD 

EQU 

«02 

JTEST  MODE  r 

)87 

0001 

A  STPMOD 

EQU 

«01 

; STEP/MANUAL  MODE 

988 

0000 

A  AUTMOD 

EQU 

«00 

; AUTOMATIC  MODE 

989 

990 

X 

991 

X  THE 

FOLLOWING  EQUATE 

TABLE  IS  THE  BIT 

092 

X  CONFIGUARATION  OF  EACH  ERROR  FLAG  ABOV^E* 

993 

X 

09-^ 

0020 

A  ZBIT 

EQU 

♦20 

JZDIR  »  BIT  5 

095 

0010 

A  BBIT 

EQU 

♦10 

JDEVBSY  »  BIT  4 

096 

0008 

A  OBIT 

EQU 

♦08 

?ONOFFL  »  BIT  3 

4 

097 

0004 

A  EBIT 

EQU 

♦04 

; PROBER  »  BIT  2 

098 

0003 

A  MBIT 

EQU 

♦03 

JCURMOD  «  BITS  1  AND  0 

099 

100 

X 

101 

X  MISC.  EQUATES 

■  . 

102 

X 

103 

OOOA 

A  STRTRM 

EQU 

♦OA 

J STRING  TERMINATOR  <LF 

10‘‘» 

0024 

A  BUFLEN 

EQU 

36 

JMAXLENGTH  OF  COMMAND 

105 

0000 

A  DONTCR 

EQU 

♦  00 

9CONT  CARE  CHAR 

106 

OOFF 

A  EOTCHR 

EQU 

♦FF 

>END  OF  TABLE 

. 

107 

0004 

A  BOFFST 

EQU 

♦4 

; CAMERA  OFFSET  KNOWN  B 

08 

4E20 

A  PARKX 

EQU 

20000 

JPARK  POSITION  X 

- 

.09 

4E20 

A  PAW<y 

EQU 

20000 

9 PARK  POSITION  Y 

. . 

110 

X 

- 

111 

X  LOW  MEMORY  EQUATES 

112 

X 

113 

11^ 

0036 

A  CX 

EQU 

♦36 

; CURRENT  ABS  LDC  X 

115 

0039 

A  CY 

EQU 

♦39 

» CURRENT  ABS  LOC  Y 

116 

003C 

A  NX 

EQU 

♦3C 

?NEXT  ABS  LOC  X 

- 

117 

003F 

A  NY 

EQU 

♦3F 

?NEXT  ABS  LOC  Y 

118 

0041 

A  DO 

EQU 

♦41 

?D  EQUATION  VALUE 

119 

0045 

A  EE 

EQU 

♦45 

;E  EQUATION  VALUE 

120 

005E 

A  NZ 

EQU 

♦5E 

;NEXT  ABS  Z  LOC 

1121 

X 

122 

0100 

A  RAX 

EQU 

♦100 

;x  ABS  LOC  REF  A 

123 

0102 

A  RAY 

EQU 

♦102 

;Y  ABS  LOC  REF  A 

12^ 

0104 

A  RBX 

EQU 

♦  104 

;x  ABS  LOC  REF  B 

1125 

0106 

A  RBY 

EQU 

♦106 

;Y  ABS  LOC  REF  B 

126 

X 

127 

0060  . 

A  MOUEZ 

EQU 

♦60 

iZ  MOVE  COMPLETE  FLAG 

1128 

00B2 

A  UOFSET 

EQU 

178 

J CAMERA  OFFSET  KNOWN  F 

129 

i 

0078 

A  XOFFS 

EQU 

120 

;X  CAMERA  OFFSET 

1130 

f 

007A 

A  YOFFS 

EQU 

122 

?Y  CAMERA  OFFSET 

131 

1132 

*• 

33 

X 

,3^ 

*35 

X  THE 

FOLLOWING  FLAGS 

MAKE  UP  THE  STATUS  BYT 

• 

X  THAT  IS  SENT  TO  1  £ 

CONTROLLER  UPON  REQUES 

136 

X 

137 

00A4 

A  ZDIR 

EQU 

164 

; CURRENT  Z  DIRECTION 

1138 

00  A3 

A  PROBER 

EQU 

163 

; PROBER  STATUS  CODE 

1 

H 

>ACE  002  hyiicmdp*sa:o  comand  command  processor 


10059 

X 

93 

X»Y 

)no60 

K 

9^ 

Z 

*, 

<>1 

X 

95 

x»z 

)cru62 

X 

96 

Y»Z 

—  -• 

30063 

X 

97 

XrYrZ 

1006^ 

X 

' 

br 

•  -i 

30065 

X 

'i 

10066 

OOAO 

A  AXZSIN  EQU  «A0 

IBASE  AODR  FOR  AXIS  IN 

30067 

", 

X 

4. 

30068 

X 

TYPES  OF  AXIS  INIT 

ERRORS  ARE 

AS  follows: 

00069 

•*. 

X 

. 

30070 

X 

VALUE (HEX) 

AXISES  IN 

ERROR 

00071 

X 

A1 

X 

00072 

X 

A2 

Y 

00073 

X 

A3 

XrY 

0007“^ 

X 

A*^ 

Z 

00075 

X 

A5 

XfZ 

00  076 

X 

A6 

Y»Z 

00077 

X 

A7 

XfY»Z 

00078 

X 

00079 


V 


(  ; 


I 


>AGE  001 

HYllCMDP.SAtO 

COHAND  COMMAND 

PROCESSOR 

90001 

NAM 

COMAND 

10002 

OPT 

REL>CRErNOG 

i;  13 

10004 

TTL 

COMMAND  PROCESSOR 

90005 

K 

90006 

*  INTERNAL  DEFINITIONS 

00007 

X 

90008 

XDEF 

CMINTP  »  PUTCHR  »  GETCHR  - 

00009 

XDEF 

INTBCF » FORMST » OTCRLF 

00010 

XDEF 

AUTPRB  »  MANPRB  »  TSTPRB 

00011 

XDEF 

UPPROB  *  DNPROB  r  HOPROB 

00012 

XDEF 

ABSET  f  MATCH » RERROR  »  MVPARK 

00013 

X 

00014 

X  EXTERNAL 

REFERENCES 

00015 

X 

00016 

'XREF 

CUROFF.ONLTE 

00017 

XREF 

TOUCHD  »  CASCB  »  OFFLTE 

00018 

XREF 

CBASC  »  SFLOAT  »  CXYPF  r  MVPOS 

00019 

XREF 

JOG  »  ZTABLE  »  CDEV  f  FPSUB 

00020 

XREF 

DSPL  »  TCLRDP  f  CREFD  f  ENTER 

00021 

XREF 

FLSHYN  »  UNLDKY  f  LOADKY 

00022 

X 

00023 

X  KEYBOARD 

LIGHT  EQUATES 

00024 

X 

00025 

0045 

A 

LAUTO  EQU 

♦45  JAUTO 

00026 

0042 

A 

LTEST  EQU 

♦42  ITEST 

00027 

0040 

A 

LSTEP  EQU 

♦40  ISTEP 

P  '28 

0033 

A 

LUPDWN  EQU 

♦33  1 UP/DOWN 

0^  -29 

0030 

A 

LABLGN  EQU 

♦30  >A/B  ALIGN 

00030 

X 

00031 

*  PROBER  NON 

-FATAL  ERROR  COMMANDS 

00032 

X 

00033 

0030 

A 

UNKCMD  EQU 

♦30  » UNRECOGNIZED  COMMAND 

00034 

0031 

A 

INVCHR  EQU 

♦31  » INVALID  CHAR  IN  COMMA 

00035 

0032 

A 

BADCTR  EQU 

♦32  ? IMPROPER  TERMINATOR 

00036 

0033 

A 

INUARG  EQU 

♦33  ; INVALID  COMMAND  ARGUM 

00037 

0034 

A 

WRGMOD  EQU 

♦34  ? INVALID  COMMAND  FOR  C 

00038 

0035 

A 

UNDFAB  EQU 

♦35  1 HYBRID  A/B  POINTS  NOT 

00039 

0036 

A 

NOFSET  EQU 

♦36  ? CAMERA  OFFSET  NOT  SET 

00040 

X 

00041 

X  PROBER  FATAL  ERROR  COMMANDS 

00042 

X 

00043 

0080 

A 

OPABRT  EQU 

♦80  ? OPERATOR  ABORT 

00044 

0081 

A 

lEEEER  EQU 

♦81  ;IEEE  BUS  ERROR 

00045 

0082 

A 

UNKINT  EQU 

♦82  f UNKNOWN  INTERRUPT 

00046 

0083 

A 

LIMERR  EQU 

♦83  lAXIS  LIMIT  ERROR 

00047 

0084  . 

A 

TRSHER  EQU 

♦84  ; THRESHOLD  ERROR 

00048 

0085 

A 

APUERR  EQU 

♦85  ;apu  error 

00049  ' 

0086 

A 

AXISER  EQU 

♦86  lAXIS  ERROR  CONTROL 

00050 

0087 

A 

DSKERR  EQU 

♦87  IDISK  ERROR 

00051 

X 

00052 

0090 

A 

AXISTO  EQU 

♦90  ITIME  OUT  BASE  ADDR 

f  '53 

'  X 

9  *54 

*  TYPES  OF 

TIME  OUT  ERRORS  ARE  AS  FOLLOWS! 

6- j55 

X 

00056 

*  VALUE (HEX)  AXISES  IN  ERROR 

00057 

*  91 

X 

00058 

*  .  92 

Y 

S’ :n  _  _  31  3J_  7?  S’3?S!3J 
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0029  KTEST  000^7*00515 
0026  KUNLOD  0004^*00509 
)025  KUPDWN  00043*00507 
•E070  LIGHT  00089*00098 

0034  LLOAD  00033*00342  00363  • 

0043  LLSTOP  00031*00159  00169 

P  0165  LOADIO  00352  00360*  x 

P  0168  L0AD15  00348  00358  00362* 

P  016C  LOADSO  00365* 

DP  0143  LOADKY  00012  00341*00526 

P  0271  LOADMS  00345  00494*  • 

0032  LOFSET  00034*00318  00329 
0041  LRUN  00030*00119  00161  00171 
0035  LUNLOD  00032*00223  00226 
MANPRB  00022*00247 
MATCH  00024*00377 

MVP ARK  00025*00224  00343  • 


OFFLTE  00021*00160  00168  00225  00328 
007E  OFFSTF  00083*00350 
OFLNE  00025*00256 
0122  OFST30  00310*00365 
>  0120  OFSTKY  00308*00524 

ONLTE  00021*00118  00158  00170  00222 
009F  ONOFFL  00075*00139  00380  00383  00388 
OOAl  ONOFSV  00082*00156  00167  00381  00387 
ONSTOP  00019* 

0080  OPABRT  00065*00180  00194 
■^710  PRSWIT  00092*00299 
,  JllC  PRTRIO  00299* 

•  01 IF  PRTR20  00293  00297  00300* 

•  0112  PRTRKY  00292*00528 
RERROR  00024*00136  00181  00195 
RSTART  00024*00182 

P  006A  RUNKY  00167*00238  00504 
R  START  00020* 

P  00D7  STEPKY  00243*00514 
P  0050  STOPKY  00155*00502 
P  0207  STPMSG  00463  00480* 

R  TCLRDP  00020*00134  00283  00347 

P  O0E8  TESTIO  00256*00264 
P  OOFA  TEST20  00259  00265* 

P  00E3  TESTKY  00253*00516 
P  0211  TSTMSG  00469  00482* 

R  TSTPRE  00022*00253 

DP  00B7  UNLDKY  00012  00220*00510 
P  0251  UNLMSG  00221  00490* 

00B2  UOFSET  00073*00100 
P  00B4  UPDNIO  00213  00216* 

P  OOAD  UPDNKY  00212*00508 
R  UPPROB  00021*00215 

00A4  ZDIR  00072*00212  00292 


r 

4 


00362 


00317  00341 


t 


7}X  a  73TT0 
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P  0225  BUSMSG  00132  00A86X 
CAMOFF  00025x00320 
CBHEX  00023x00^18  00^21  00^31 
CMXNTP  00020x00143 
013E  COFFl  00323  00328X 

012B  COFFST  00013  00308  00317x00355  ^ 

00A2  CURMOO  00080x00176  00193  00231  00243  00262  00295  0045^' 
CUROFF  00023x00190 
DELAY2  00019x00108 
P  019A  DISPIO  00411x00413 
P  0188  D1SP30  00430x00439 
P  0191  DISPLY  00282  00406X 
R  DNPROB  00021x00216 

P  01E3  DS2A  00455  00460x 
P  OlED  DS2E  00461  00466x 
P  01F7  DS2C  00467  00472x 
R  DSKOFF  00019x00112 

P  01 OB  DSNXKY  00282x00520 

01F3  DSPADR  00076x00277  00417  00420  00428  00443 

R  DSPL  00020x00131  00184  00220  00344  00444  00456  00462  00468 

00472 

P  01D8  DSPMOD  00120  00148  00454X 
P  OlFC  DSPRTN  00458  00464  00470  00475x 
R  ENTER  00023x00269 

OOFF  EOTCHR  00059x00529 
DP  002E  EXCNTR  00012  00125x00140  00142  00149 
DP  0000  EXEC  00012  00094x 
0046  EXECIO  00130  00139x 
K  J055  EXEC30  00127  00147x 
P  0058  EXECSO  00145  00148x 
R  FLSHYN  00023X00187 

E130  FORCE  00090x00103 
P  007E  FTLABT  00137  00180x 

OlFl  HEXRES  00078x00432  00434 

R  HOPROE  00022x00191  00354 

0003  IDLMOD  00058x00177  00192  00232  00244  00263 

P  021B  IDLMSG  00473  00484X 
0081  lEEEER  00066x00135 
R  XKBPIA  00019x00105 

P  OOFB  INADKY  00269x00518 

OOAF  XNCNT  00074x00141  00144 
P  023A  XNPMSG  00270  00488x 
0020  KABLGN  00050x00521 

0030  KABRT  00042x00206  00258  00311  00322  00357  00505 
002A  KAUTO  00045x00511 
0041  KDSPNX  00049x00519 

0010  KEY  00071x00121  00126  00205  00257  00310  00321  00356  00375 
00389 

P  016E  KEYPRC  00147  00374x 
P  018E  KEYRTN  00378  00389x 
P  0289  KEYTBL  00374  0050 lx 
0031  KXNPAD  00048x00517 
0022  KLOAD  00051x00525 
^4028  KLSTOP  00040x00501 
-  ^021  KOFSET  00053x00523 
0024  KPTRIG  00052x00527 
002C  KRUN  00041X00503 
0028  K8TEP  00046x00513 


<1# 
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00497 

X 

00498 

X 

THE 

FOLLOWING  IS  A  RELATIVE  JUMP  TABLE 

(  »9 

X 

FOR 

ALL  KEY  PROCESSOR  ROUTINES 

00r>00 

X 

00501P 

0289 

2D 

A  KEYTBL 

FCB 

KLSTOP 

?STOP  KEY 

00502P 

028 A 

FDD3 

A 

FDB 

STOPKY-x 

r  ■  '-t 

f 

00503P 

028C 

2C 

A 

FCB 

KRUN 

>RUN  KEY  £ 

00504P 

028D 

FDDD 

A 

FDB 

RUNKY-x 

00505P 

028F 

30 

A 

FCB 

KABRT 

? ABORT  KEY  ' 

00506P 

0290 

FDE5 

A 

FDB 

ABRTKY-x 

/ 

00507P 

0292 

25 

A 

FCB 

KUPDWN 

; UP/DOWN  KEY 

00508P 

0293 

FEIA 

A 

FDB 

UPDNKY-x 

00509P 

0295 

26 

A 

FCB 

KUNLOD 

? UNLOAD  KEY 

00510P 

0296 

FE21 

A 

FDB 

UNLDKY-x 

00511P 

0298 

2A 

A 

FCB 

KAUTO 

? AUTOKEY 

00512P 

0299 

FE2F 

A 

FDB 

AUTOKY-x 

00513P 

029B 

28 

A 

FCB 

KSTEP 

JSTEP  KEY 

00514P 

029C 

FE3B 

A 

FDB 

STEPKY-x 

00515P 

029E 

29 

A 

FCB 

KTEST 

JTEST  KEY 

00516P 

029F 

FE44 

A 

FDB 

TESTKY-x 

00517P 

02A1 

31 

A 

FCB 

KINPAD 

? INPUT  ADDR  KEY 

00518P 

02A2 

FE59 

A 

FDB 

INADKY-x 

00519P 

02A4 

41 

A 

FCB 

KDSPNX 

; DISPLAY  NEXT  ADDR  KEY 

00520P 

02A5 

FE66 

A 

FDB 

DSNXKY-x 

00521P 

02A7 

20 

A 

FCB 

KABLGN 

»A/B  ALIGN  KEY 

00522P 

02A8 

FDF5 

A 

FDB 

ABLNKY-x 

00523P 

02AA 

21 

A 

FCB 

KOFSET 

J OFFSET  KEY 

r  ■'»4P 

02A& 

FE75 

A 

FDB 

OFSTKY-x 

Ov  25P 

02  AD 

22 

A 

FCB 

KLOAD 

JLOAD  KEY 

00526P 

02AE 

FE95 

A 

FDB 

LOADKY-x 

00527P 

02GU 

24 

A 

FCB 

KPTRIG 

? PROBE  TRIGGER  KEY 

00528P 

02B1 

FE61 

A 

FDB 

PRTRKY-x 

00529P 

02B3 

FF 

A 

FCB 

EOTCHR 

fEND  OF  TABLE 

00530  M 

00531  END 

TOTAL  ERRORS  00000 — 00000 
TOTAL  WARNINGS  00000 — 00000 


00A7  ABFLAG  00081x00200  0032^  00326 
OOIF  ABFLEN  00057x00-^09 
P  OOAC  ABLN-^0  00202  00208X 
P  009D  ABLNKY  00200x00522 
P  0083  ABRTIO  00178  0018-<»x 
P  009C  ABRTZO  00188  00196x 

P  0075  ABRTKY  00176x00207  00260  00275  00312  00506 
P  0265  ABRTMS  00185  00-^92x 
R  ASSET  0002^x0020^  00360 

01F5  ADRBUF  00077x00-^07  00^19  00^22  00^26  00^^5 
P  OlFD  AUTMSG  00-^57  00-^78x 
P  00D3  AUTOlO  00238x002-^8 

0006  AUT020  00233  00236  00239x00245  0025-4 
r  I)0C8  AUTOKY  00231x00512 
r'  AUTPRB  00022x00235 

E120  BFPIA  00091x00114  00116 
0004  BOFFST  00060x00201  00325 
OOAB  BUSERR  00079x00129 
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00^78P 

OlFD 

^1 

A 

AUTMSG 

FCC 

/AUTO  MODE/ 

0O4I79P 

0206 

OD 

A 

FCB 

«0D 

1  30P 

0207 

53 

A 

STPMSG 

FCC 

/STEP  MODE/ 

00'>81P 

0210 

OD 

A 

FCB 

«0D 

00^82P 

0211 

5^ 

A 

TSTMSG 

FCC 

/TEST  MODE/  V  , 

00^83P 

021A 

OD 

A 

FCB 

♦OD  '' 

00^8^P 

0218 

^9 

A 

IDLhSG 

FCC 

/IDLE  MODE/  ,,  7 

oo^asp 

022^ 

OD 

A 

FCB 

♦OD 

00'^86P 

0225 

^9 

A 

BUSHSG 

FCC 

/IEEE-68^B8  BUS  ERROR/ 

00^87P 

0239 

OD 

A 

FCB 

♦OD 

00-^88P 

023A 

^9 

A 

INPhSG 

FCC 

/INPUT  address:  / 

0  0‘^89P 

0250 

OD 

A 

FCB 

♦OD 

00^90P 

0251 

55 

A 

UNLMSG 

FCC 

/UNLOADING  PROBE  .../ 

00-^91P 

026“^ 

OD 

A 

FCB 

♦OD 

00'^92P 

0265 

^1 

A 

ABRTMS 

FCC 

/ABORT  TEST?/ 

00-^93P 

0270 

OD 

A 

FCB 

♦OD 

00-^9'^P 

0271 

53 

A 

LOADMS 

FCC 

/SECURE  HYBRID  IN  SOCKET/ 

00-^95P 

0288 

OD 

A 

FCB 

♦OD 
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00402 

X 

00403 

X 

UALXOATE  STRING 

C  J4 

X 

OUHOS 

X 

VALIDATE  THE  STRING  TO  INSURE  THAT  IT 

00406 

>- 

X 

COMPLETELY  NUMERIC 

♦  IF  IN  THE  -DEMODE*  » 

00407 

X 

FIRST  CHARACTER  OF 

THE  STRING  HILL  HAVE  T 

00408 

X 

OPTION  OF 

BEING  A 

•  +  •  OR  8I^5N. 

00409 

X 

■'i 

00410 

X 

CALLING  sequence:  LDY  STRING  PTR 

00411 

* 

X 

LDB  ♦  OF  CHAR  ( 

00412 

A 

X 

JSR  VALNUM 

00413 

X 

00414 

X 

UPON 

return: 

CC  -  VALID  NUMERIC  S 

00415 

X 

B  -  SIGN  (0“POS»FF= 

00416 

X 

Y  -  PTR  TO  NEXT  CHA 

00417 

X 

PASSED  STRING. 

00418 

X 

OR 

00419 

X 

CS  -■  INVALID  NUMERIC 

00420 

X 

note:  the 

PURE  NUMERIC  STRING  IS  STORED  I 

00421 

X 

NUMBUF 

(5  BYTES). 

0  0422 

X 

00423 

OOCA 

P  VALNUM  EQU 

X 

00424P 

OOCA 

34 

02 

A 

PSHS 

A 

;SAVE  A  REG 

00425P 

OOCC 

OF 

9E 

A 

CLR 

VALSGN 

: ASSUME  POS 

00426 

X 

00427P 

OOCE 

A6 

AO 

A  VALOlO  LOA 

»Y+ 

JGET  POSSIBLE  SIGN  CHA 

00428P 

OODO 

81 

20 

A 

CMPA 

«»20 

PLEADING  BLANK? 

0  '29P 

00D2 

27 

FA 

OOCE 

8EQ 

VALOlO 

(k  30 

X 

00431P 

00D4 

OD 

AS 

A 

tst 

DEMODE 

flN  DE  MODE? 

00432P 

00D6 

27 

OC 

00E4 

BEQ 

VAL030 

:N0  need  TO  CHECK  FOR 

00433 

X 

00434P 

00D8 

81 

2E: 

A 

CMPA 

♦♦2B 

;IS  IT  POS? 

00435P 

OODA 

27 

OA 

00E6 

BEQ 

VAL050 

fYES 

0  0436 

X 

00437P 

OODC 

81 

2D 

A 

CMPA 

♦*2D 

;IS  IT  NEC? 

00438P 

OODE 

26 

04 

00E4 

BNE 

VAL030 

:no»  assume  POS 

00439 

X 

00440P 

OOEO 

03 

9E 

A 

COM 

WALSGN 

{REPORT  MINUS 

00441P 

00E2 

20 

02 

00E6 

BRA 

VAL050 

00442P 

00E4 

31 

3F 

A  VAL030  LEAY 

-1»Y 

{BACKUP  ONE  CHAR 

00443P 

00E6 

8E 

OOBF 

A  VAL050  LDX 

♦NUMBUF 

{STORAGE  BUFFER 

00444P 

00E9 

A6 

AO 

A  VAL060  LDA 

»Y+ 

{GET  CHAR 

0044SP 

OOEB 

81 

30 

A 

CMPA 

♦430 

{VALID  DIGIT-^ 

00446P 

OOED 

25 

10 

OOFF 

BCS 

WALERR 

{NO 

00447P 

OOEF 

81 

3A 

A 

CMPA 

♦«3A 

00448P 

OOFl 

24 

OC 

.OOFF 

BCC 

VALERR 

{NO 

00449 

•- 

X 

00450P 

00F3 

A7 

80 

A 

STA 

{STORE  DIGIT 

00451P 

00F5 

5A 

DECB 

00452P 

00F6 

26 

FI 

00E9 

BNE 

VAL060 

{CONTINUE 

00453 

X 

r  54P 

00F8 

35 

02 

A 

PULS 

A 

&  “JSSP 

OOFA 

D6 

9E 

A 

LDB 

VALSCN 

{PASS  SIGN 

d.  ;56P 

OOFC 

1C 

FE 

A 

ANDCC 

♦♦FE 

00457P 

OGFE 

39 

RTS 

00456 

X 

00459P 

OOFF 

35 

02 

A  VALERR  PULS 

A 
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O0A60P  0101  lA  01  A  ORCC  «1 

O^A-SIP  0103  39  RTS 

»  j2 
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00^6^ 

K 

00^65 

K 

INITIALIZE 

BUFFER 

CONTROL  FIELD 

C  i>6 

X 

0Q^67 

X 

CALLING 

parameters: 

LDX 

♦BCFPTR 

Q0A68 

X 

LOD 

BEG  OF  BUFF 

00-^69 

X 

LDY 

END  OF  BUFF 

00^70 

X 

JSR 

INTBCF 

00^71 

X 

- 

00^72 

0104 

P  INTBCF  EQU 

X 

00*^738 

0104 

ED 

84 

A 

STD 

OfX 

?SET 

NEXT 

AUAIL 

00'^7‘^P 

0106 

ED 

02 

A 

STD 

2»X 

:SET 

LAS  r 

PULL 

00‘975P 

0108 

ED 

06 

A 

STD 

6fX 

JSET 

B.OJ 

:•  ♦ 

00‘^76F' 

OlOA 

lOAF 

04 

A 

STY 

4»X 

:SET 

E.O.i 

:•  • 

00‘^77P 

OlOD 

39 

RTS 

00^78 

00-^79 

X 

00^80 

X 

OUTPUT  CR/LF  TO  BCF 

00-^81 

X 

00-482 

X 

CALLING 

PARAMETERS 

LDX  tBCFR 

0  0-483 

X 

JSR  OTCRL 

00-48-4 

X 

00485 

OlOE 

P  OTCRLF  EQU 

X 

00486P 

OlOE 

34 

04 

A 

PSHS 

B 

00487P 

0110 

C6 

OD 

A 

LDB 

«»0D 

00488P 

0112 

80 

0065 

P 

JSR 

PUTCHR 

?SAUE  CR 

00489P 

0115 

C6 

OA 

A 

LDB 

«i»0A 

00490P 

0117 

BO 

0065 

P 

JSR 

PUTCHR 

»‘SAUE  LF 

r  ’91P 

OllA 

35 

04 

A 

PULS 

B 

.92P 

one 

39 

RTS 

( 
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00^9^ 

m 

P''«95 

K 

name:  locate 

V  /6 

» 

00^97 

X 

function: 

TO  LOCATE  A  REFERENCE  POINT.  ' 

TH 

00^98 

X 

ROUTINE 

WILL  JOG  TO  THE  REF  POI 

00-^99 

X 

LOCATION 

AND  VERIFY  THE  POSITIO 

00500 

X 

CORRECT. 

* 

00501 

X 

•' 

00502 

- 

X 

CALLING 

sequence: 

LDX  X  POSITION 

00503 

X 

LDY  Y  POSITION 

0050^ 

X 

JSR  LOCATE 

00505 

X 

00506 

X 

UPON  RETURN  IF 

CC  -  X  REG  *  CURRENT 

X 

00507 

X 

Y  REG  *=  CURRENT 

Y 

00508 

X 

ELSE 

CS  -  USER  ABORTED 

00509 

X 

00510 

X 

note:  if 

CC  -  CX  1 

AND  CY  ARE  UPDATED 

00511 

X 

00512P 

Olio 

9F 

3C 

A 

LOCATE  STX 

NX 

00513P 

OllF 

109F 

3F 

A 

STY 

NY 

0051-^P 

0122 

BO 

01C2 

F 

JSR 

UPALWY 

00515P 

0125 

BO 

0000 

A 

JSR 

MUPOS 

00516 

X 

00517P 

0128 

BO 

0000 

A 

LOCO  10  JSR 

DSPL 

: DISPLAY  ON  TARGET? 

00518P 

0128 

0513 

P 

FOB 

ONTRGM 

: MESSAGE 

00519 

X 

00520P 

0120 

BO 

0000 

A 

JSR 

FLSHYN 

'  '21P 

0130 

27 

10 

01^2 

BEQ 

LOCRTN 

;YES  PRESSED 

0\  .22P 

0132 

2B 

OB 

013F 

BMI 

LOCRTl 

; ABORT  PRESSED 

0  0523 

X 

00524P 

013-^ 

BO 

0000 

A 

JSR 

DSPL 

: DISPLAY  ’MOVE  TO 

00525P 

0137 

051E 

P 

FOB 

MOVMSG 

?TEST  POINT* 

00526 

X 

00527P 

0139 

-HF 

CLRA 

00528P 

013A 

BO 

0000 

A 

JSR 

JOG 

00529P 

0130 

27 

E9 

0128 

BEG 

LOCO 10 

CENTER  WAS  PRESSED 

00530 

X 

00531P 

013F 

lA 

01 

LOCRTl  SEC 

00532P 

01-^1 

39 

RTS 

00533P 

01^2 

9E 

36 

A 

LOCRTN  LDX 

CX 

?PASS  NEW  POS 

00534P 

01^^ 

109E 

39 

A 

LDY 

CY 

00535P 

01^7 

39 

RTS 

0  0536 

X 

( 
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( 


D538  V 

15i39  X  THE  FOLLOWING  ROUTINE  WILL  MOUE  THE  PROBE 

TO  X  TO  THE  PARK  POSITION  SO  THAT  THE  NEXT 


atiTi 

X 

HYBRID 

MAY  BE  LOADED. 

05T2 

D5T3P 

01^8 

BE 

4E20 

K 

A  MVPARK  LDX 

«PARKX 

>CET 

PARW»OS 

05TTP 

Ol'^B 

108E 

^E20 

A 

LDY 

♦PARKY 

-  i*' 

IP 

05T5P 

014F 

9F 

3C 

A 

STX 

NX 

tar 

05T6P 

0151 

109F 

3F 

A 

STY 

NY 

■fc' 

05T7P 

015^ 

BD 

01C2 

P 

JSR 

UPALWY 

•  ^  -  »• 

05T8P 

0157 

BD 

0000 

A 

JSR 

MVPOS 

}GO 

TO  PARK 

05T9P 

0550 

015A 

39 

X 

RTS 

.1 
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)552 

“53 

1555 

)556 

>557 

>558 


X 

*  THE  FOLLOHING  CODE  IS  THE  COMMON  ERROR 
X  HANDLER.  IT  WILL  SAk.>E  THE  ERROR  CODE  AND 
X  SET  THE  ERROR  STATE  FLAG  TO  ACTIVE.  THE 
X  ERROR  IS  NOT  REPORTED  IN  THE  OFFLINE  MODE 

X  • 

X  CALLING  sequence:  LDB  ERROR  CODE 


)559  K  JSR  ERROR 

>560  * 


3561 

015B 

P 

ERROR 

EQU 

X 

J562P 

015B 

OD 

9F 

A 

TST 

ONOFFL 

tIU  OFFLINE  MODE? 

D563P 

356^ 

015D 

26 

06 

0165 

X 

BNE 

ERRTN 

:yes 

D565P 

015F 

D7 

A3 

A 

RERROR 

STB 

PROBER 

3566P 

0161 

C6 

FF 

A 

LDB 

♦♦FF 

0567P 

3568 

0163 

D7 

A6 

A 

X 

STB 

ESTATE 

D569P 

0165 

lA 

01 

A 

ERRTN 

ORCC 

♦1 

D570P 

0167 

39 

RTS 

:  017  hyiicmdp*sa:o  comano  comhand  processor 


rz 

X 

^3 

X 

THE  FOLLOMINC  ARE  THE  COMHAND  PROCESSORS 

X 

^5 

76 

X 

•  ^ 

77 

X 

GET  MESSAGE  PROCESSOR  4. 

78 

X 

'i 

79P 

0166 

80 

0000 

A  CETMSG  JSR  DSPL  ^OISPLAY  TO  KEY80AR0 

SOP 

016B 

OlAC 

A 

FOB  EXBUFR+2 

31 

X 

B2P 

0160 

80 

0000 

A 

JSR  TCLRDP  IWAII  FOR  USER  ACK 

83P 

0170 

39 

RTS 

X 

85 

X 

PROBE  MODESET  TO  AUTOMATIC 

86 

X 

87 

X 

AT  ANY  TIMEf  THE  USER  MAY  CHANGE  MODE  OF 

88 

X 

OPERATION  TO  AUTOMATIC.  THE  ONLY  TIME  THA 

89 

X 

THIS  IS  PROHIBITED  IS  IF  THE  CURRENT  MODE 

90 

X 

OF  OPERATION  IS  THE  TEST  MODE.  ENTRY  INTO 

91 

X 

THIS  ROUTINE  OCCURS  BY  EITHERPRESSING  THE 

92 

X 

AUTO  KEY  OR  BY  DECODING  A  'MO*  COMMAND  BY 

93 

X 

THE  CONTROLLER. 

19-^ 

X 

95 

X 

CALLING  sequence:  JSR  AUTPRB 

196 

X 

97 

X 

return:  CC  -  IF  VALID  CHANGE 

198 

X 

99 

OOP 

0171 

96 

A2 

A  AUTPRB  LDA  CURMOD  »GET  CURRENT  MODE 

»01P 

0173 

81 

00 

A 

CMPA  ♦AUTMOD  J ALREADY  AUTO? 

.02P 

0175 

27 

OF 

0186 

BEQ  AUTPRT  JYES 

>03 

X 

>0^P 

0177 

81 

02 

A 

CMPA  ♦TSTMOD  : VALID  CHANGE? 

i05P 

0179 

27 

3C 

0187 

BEQ  PRBERR  .NO 

>06 

X 

>07P 

017E! 

80 

0000 

A 

JSR  CUROFF  :TURN  OFF  CURRENT  MODE 

>08P 

017E 

86 

00 

A 

LDA  fAUTMOD 

>09P 

0180 

97 

A2 

A 

ST A  CURMOD  : UPDATE  NEW  MODE 

ilOP 

0182 

80 

0000 

A 

JSR  ONLTE 

>11P 

0185 

45 

A 

FCB  LAUTO 

>12P 

0186 

1C 

FE 

A  AUTPRT  ANDCC  ♦♦FE 

»13P 

0188 

39 

RTS 

>1^ 

.15 

X 

>16 

X 

PROBE  MODE  SET  TO  MANUAL 

>17 

X 

^8 

X 

THIS  ROUTINE  WILL  FOLLOW  THE  SAME  RULES  A 

il9 

X 

IN  THE  AUTOMATIC  TESTMODE.  THIS  MODE  MAY 

>20 

X 

ENTERED  BY  ONE  09F  TWO  METHODS*  1>BY  PRES 

^21 

X 

THE  'STEP*  KEY  OR  BY  AN  'Ml*  COMMAND 

>22 

X 

GENERATED  BY  THE  CONTROLLER 

^23 

X 

V 

*24 

X 

CALLING  sequence:  JSR  MANPR8 

•^5 

X 

*'26 

X 

RETURN  CC-  IF  VALID  MODE  CHANGE 

i27 

X 

^28P 

0189 

96 

A2 

A  MANPR8  LDA  CURNOD 

i29P 

0168 

81 

01 

A 

CMPA  ♦8TPM0D  ;SAME  MODE 
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p 

o 

CD 

ft 

o 

27 

OF 

019E 

M 

BEQ 

MANPRT 

p 

018F 

81 

02 

A 

CMPA 

♦TSTMOD 

IIN  TEST  MODE? 

p 

0191 

27 

2^ 

01B7 

BEQ 

PRBERR 

JYES 

p 

0193 

BD 

0000 

A 

JSR 

CUROFF 

ITURN  OFF  CURRENT  MODE 

p 

0196 

86 

01 

A 

LDA 

♦STPMOD 

■  't 

p 

0198 

97 

A2 

A 

STA 

CURMOD 

fSET  TO  NEW  mOE 

p 

019A 

BD 

0000 

A 

JSR 

ONLTE 

:turn  on  new  light 

p 

019D 

^0 

A 

FCB 

LSTEP 

p 

019E 

20 

E6 

0186 

MANPRT 

BRA 

AUTPRT 

X 

*  PROBE  MODE  SET  TO  TEST 

X 

X  ONLY  IF  THE  CURRENT  MODE  OF  THE  BONDER  IS 
X  IDLE  CAN  THE  TEST  MODE  BE  ENTERED*  THIS 
1  X  ROUTINE  IS  TRIGGERED  WHENEUER  THE  ‘TEST* 

>  X  ON  THE  KEYBOARD  IS  PRESSED  OR  IF  THE 

X  CONTROLLER  TRANSMITS  A  ‘MZ’  CODE. 

:  *  CALLING  sequence:  jsr  tstprb 

)  X 

f  X  return:  CC  -  IF  VALID  MODE  CHANGE 


X 


>p 

OlAO 

96 

A2 

A 

TSTPRB  LDA 

CURMOD 

JGET  CURRENT  MODE 

'p 

01A2 

81 

02 

A 

CMPA 

♦TSTMOD 

: ALREADY  IN  TEST? 

}p 

? 

)p 

0lA4 

27 

OF 

01B5 

BEQ 

W 

TSTRTN 

:yes 

01A6 

81 

03 

A 

CMPA 

♦IDLMOD 

:iN  IDLE? 

LP 

> 

01  AS 

26 

OD 

01B7 

BNE 

W 

PRBERR 

:no 

}P 

OlAA 

BD 

0000 

A 

JSR 

CUROFF 

(TURN  OFF  CURRENT  LIGH 

»P 

OlAD 

86 

02 

A 

LDA 

♦TSTMOD 

jp 

OlAF 

97 

A2 

A 

STA 

CURMOD 

bP 

OlBl 

BD 

0000 

A 

JSR 

ONLTE 

JTURN  ON  TEST  LITE 

''P 

3P 

a 

OIBA 

OIBS 

20 

A2 

CF 

A 

0186 

FCB 

TSTRTN  BRA 

W 

LTEST 

AUTPRT 

r 

) 

L 

2F 

01B7 

C6 

3A 

A 

JK 

X  ERROR  - 

X 

PRBERR  LDB 

WRONG  MODE 

♦WRGMOD 

FOR  REQUEST 

3P 

01B9 

7E 

015B 

P 

JMP 

ERROR 

S 

r 

3 

? 

) 

L 

I 

3 

» 

5 

b 

r 


X 

X  COMMAND  TO  RAISE  THE  PROBE 

X 

X  THE  COMMAND  TO  RAISE  THE  PROBE  WILL  BE 
X  HONORED  IN  ANY  MODE.  BEFORE  ANY  CHANGE  OF 
X  AN  <X»Y)  POSITION r  AN  AUTOMATIC  PROBE  UP 
X  COMMAND  IS  PERFORMED.  CURRENTLY#  THE  PROBE 
X  PROBE  WILL  BE  RAISED  TO  ITS  MAXIMUM  Z  POSI 
X  TION  BUT  FUTURE  ENHANCEMENTS  MAY  ONLY  RAIS 
X  THE  PROBE  THE  MINI^iUM  WORK  HEIGHT  CLEARANC 
X  LEVEL. 

X 

X  CALLING  PARAMTERS:  JSR  UPPfOB 
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X 


OIBC 

P 

UPPROB 

EQU 

X 

$ 

OIBC 

96 

AZ 

A 

LOA 

CURMOD 

»CET  CURRENT  MODE 

■ 

OIBE 

B1 

03 

A 

CMPA 

«IOLMOD 

)ZN  IDLE  MODE? 

t 

OICO 

27 

IE 

OlEO 

W 

BEQ 

DNRTN 

JYES  r 

.’i 

t 

OICZ 

C6 

0-^ 

A 

X 

UPALWY 

LDB 

PRAISE  PROBE’ 

> 

OIC^ 

BO 

0000 

A 

W 

JSR 

ZTABLE 

> 

01C7 

BD 

0000 

A 

JK 

JSR 

OFFLTt 

»TURN  OFF  UP/DOWN  LIGH 

> 

OICA 

33 

A 

FCB 

LUPDWN 

> 

OICB 

OF 

A-^ 

A 

CLR 

ZDIR 

»SET  Z  DIR  TO  UP 

> 

OICD 

39 

RTS 

020  HYllCMDP.SAtO  COMAND  COMMAND  PROCESSOR 


X 

X  COMMAND  TO  LOWER  THE  PROBE 

X 

X  EXECUTING  THIS  ROUTINE  WILL  LOWER  THE 
X  PROBE  UNTIL  ULTRA-SONIC  PROBE  TOUCHDOWN 
X  HAS  BEEN  MADE. 

X  '  i 

X  CALLING  parameters:  JSR  DNPROB  . 


X 

3! 

\ 

' 

OICE  P 

DNPROB 

EQU 

X 

> 

OICE 

96 

A2  A 

LDA 

CURMOD 

tGET  CURRENT  MODE 

> 

OIDO 

81 

03  A 

CMPA 

♦IDLMOD 

;IN  IDLE? 

•• 

01D2 

27 

OC  OlEO 

W 

BEG 

DNRTN 

?YES 

:• 

OID^ 

BD 

0000  A 

JK 

JSR 

TOUCHD 

:• 

01D7 

86 

FF  A 

LDA 

♦♦FF 

> 

01D9 

97 

A^  A 

STA 

ZDIR 

:■ 

OIDB 

BD 

0000  A 

JSR 

ONLTE 

:TURN  ON  UP/DOWN  LIGHT 

OIDE 

33  A 

FCB 

LUPDWN 

:• 

OIDF 

39 

RTS 

OlEO 

C6 

3-^  A 

DNRTN 

LDB 

♦WRGMOD 

:SET  WRONG  MODE  ERROR 

P 

01E2 

7E 

015B  P 

JMF‘ 

ERROR 
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K 

m  MOVE  PROBE  TO  (XtY>  POSITION 

X 

X  THIS  ROUTINE  HAS  SEVERAL  TASKS*  THIS 
X  ROUTINE  WILL  ALSO  HANDLE  (Ov£>  COORDINATE 
X  FIRSTf  THE  <XfY>  OR  <D»E>  COORDINATES  ARE 
X  GATHERED  AND  VALIDATED.  NEXT  IfC  NUMBERS 
X  CONVERTED  INTO  A  VALID  BINARY  FORMAT.  IF 
X  THE  NUMBERS  ARE  INVALID r  AN  ERROR  HILL  BE 
X  GENERATED  UP  REQUEST  BY  THE  HOST  COMPUTER 
X  OTHERWISE f  THE  PROBER  WILL  BE  MOVED  TO  TH 
X  REQUESTED  <X»Y)POS.  HOW  THIS  IS  DONE  DEPE 
X  ON  WHAT  OPERATION  MODE  IS  REQUESTED. 

X 

X  MODE  0  -  AUTOMATIC  -  A  AUTOMATIC  PROBE  UP 
X  THEN  AN  AUTOMATIC  MOVE  TO  <X»Y) 

X  AND  THEN  FINALLY  AND  AUTOMATIC 

X  DOWN* 

X 

X  MODE  1  «=  MANUAL  -  EXACTLY  AS  IN  MODE  0  EX 
X  THAT  THE  USER  WILL  VERFIFY  THAT 

X  CORRECT  <XrY>  POSITION.  ONCE  VE 

X  APROBE  DOWN  COMMAND  WILL  BE  AUT 

X  GIVEN. 

X 

X  MODE  2  *  TEST  -  THE  ONLY  AUTOMATIC  MOVEME 
X  PROBE  UP  COMMAND.  SPECIFIC  MOV 

X  <X»Y)  OR  <D»E>  AND  PROBE  UP/DOW 

X  BE  GIVEN  TO  THE  HOST  COMPUTER. 

X 

X  MODE  3  *  IDLE  -  MOVES  TO  (XrY>  WILL  BE  IG 

X 


DIES 

96 

A2 

A 

XYMOVE 

LDA 

CURMOD 

; VALID  OPER  MODE? 

01E7 

81 

03 

A 

CMPA 

♦IDLMOD 

01E9 

26 

05 

OlFO 

BNE 

XYMOlO 

.YES 

m 

X  ERROR  -  CANT  OPERATE 

w 

IN  IDLE  MODE 

OlEB 

C6 

3^ 

A 

LDB 

OWRGMOD 

DIED 

16 

OOCA 

02BA 

W 

LBRA 

DEMERR 

OlFO 

96 

A7 

A 

XYMOlO 

LDA 

ABFLAG 

IIS  CAMERA  OFFSET  SET? 

01F2 

8S 

OA 

A 

BITA 

♦BOFFST 

OlFA 

26 

05 

OlFB 

W 

BNE 

XYM020 

;yes 

01F6 

C6 

36 

A 

X 

LDB 

♦NOFSET 

01F8 

16 

00B9 

-02BA 

w 

LBRA 

DEMERR 

1 REPORT  ERROR 

OlFB 

o 

00 

m 

OlAB 

A 

XYM020 

LDY 

♦EXBUFR+1 

I START  OF  STRING 

OlFF 

C6 

05 

A 

LDB 

«5 

. 

0201 

BO 

OOCA 

P 

JSR 

VALNUM 

1 VALID  NUMBER? 

020A  2S 

26 

022C 

BCS 

XYM050 

INO  *  - 

0206 

07 

CA 

A 

W 

STB 

kDSIGN 

I8AVE  SIGN  OF  X  OR  D 

0208 

6D 

0000 

A 

JSR 

CASCB 

0206 

OOBF 

A 

FDB 

NUMBUF 

020D 

05 

A 

FCB 

5 

020E 

00C5 

A 

FOB 

TEMPX 

I8AVE  BINARY  RESULT 

22  hyiicmdp.sa:o  comand  command  processor 

» 

*  CHECK  FOR  PROPER  FORMAT  OF  STRING 


» 


9210 

A6 

AO  A 

LDA 

fY+ 

IGET  NEXT  CHAR 

DZIZ 

OD 

A8  A 

TST 

DEMODE 

?IN  DE  MODE?. 

921^ 

27 

06  021C 

BEQ 

XYM025 

TNO  >  ' 

DZ16 

81 

JK 

A5  A 

CMPA 

♦♦45 

■k 

tlS  IT  AN  ■£»  IyES 

0Z18 

27 

OB  0225 

BEQ 

XYM040 

lYESf  VALID  FORMAT 

D21A 

% 

20 

0^  0220 

W 

BRA 

XYM030 

TNO 

D21C 

81 

59  A  XYM025 

CMPA 

♦♦59 

JIS  IT  A  'Y' 

OZIE 

27 

05  0225 

w 

BEQ 

XYM040 

lYES 

*  ERROR  “INVALID  FORMAT 

0220 

C6 

31  A  XYM030 

LDB 

♦INVCHR 

0222 

16 

008F  02B-4 

LBRA 

DEMERR 

0225 

C6 

M 

05  A  XYMO-'fl) 

LDB 

♦5 

0227 

E:D 

OOCA  P 

JSR 

VALNUM 

JVALID  'Y'  OR  ’E-? 

022A 

2^ 

05  0231 

BCC 

XYM060 

TYES 

m 

*  ERROR  -  INVALID  COMMAND  ARGUMENT 

022C 

C6 

JK 

33  A  XYM050 

LDB 

♦INVARG 

022E 

16 

0083  02B^ 

W 

LBRA 

DEMERR 

0231 

D7 

A 

C9  A  XYM060 

STB 

YESIGN 

ISAVE  Y/E  SIGN 

0233 

BD 

X 

0000  A 

JSR 

CASCB 

♦CONVERT  TO  BINARY 

0236 

OOBF  A 

FDB 

NUMBUF 

0238 

05  A 

FCB 

5 

0239 

00C7  A 

W 

FDB 

TEMPY 

0Z3E’ 

9E 

A 

C5  A 

LDX 

TEMPX 

023D 

109E 

C7  A 

LDY 

TEMPY 

02^0 

OD 

A8  A 

TST 

DEMODE 

JIN  DE  MODE? 

02-^2 

26 

07  02^E 

BNE 

XYM070 

JYES 

02^-^ 

9F 

X 

3C  A 

STX 

NX 

; UPDATE  NEXT  X 

02^6 

109F 

3F  A 

STY 

NY 

J UPDATE  NEXT  Y 

02-^9 

20 

2E  0276 

BRA 

XYMIOO 

02^8 

9F 

41  A  XYM070 

STX 

DD 

J UPDATE  D  EQUATION 

02AD 

10  9F 

45  A 

vr 

STY 

EE 

♦UPDATE  E  EQUATION 

r 

0250 

BD 

^  JK 

0000  A 

JSR 

SFLOAT 

♦FLOAT  TO  32  BIT  INTEG 

0253 

0041  A 

FDB 

DD 

0255 

0041  A 

FDB 

DD 

0257 

BD 

X 

0000  A 

JSR 

SFLOAT 

025A 

0045  A 

FDB 

EE 

025C 

0045  A 

vr 

FDB 

EE 

025E 

D6 

41  A 

LDB 

DO 

0260 

OD 

C4  A 

TST 

XDSIGN 

♦IS  D  VAL  POS? 

0262 

27 

04  0268 

BEQ 

XYM080 

JYES 

hyiicmdp.sa:o 
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6^ 

CA 

80 

A 

ORB 

*«80 

;NOf  SET  MANTISSA 

66 

D7 

^1 

A 

STB 

DD 

{SIGN  NEGATIVE 

6B 

06 

•^5 

m 

A  XYM080  LDB 

EE 

6A 

OD 

C9 

A 

TST 

YESIGN 

{IS  E  VAL  POS? 

6C 

27 

0^ 

0272 

BEQ 

XYM090 

{YES  t 

6£ 

CA 

80 

A 

ORB 

•»80 

{NOr  SET  MANTISSA 

70 

D7 

^5 

A 

STB 

EE 

{SIGN  NEGATIVE 

72 

4F 

m 

XYM090  CLRA 

{USE  REF  1 

73 

BD 

0000 

A 

JSR 

CXYPF 

{CONVERT  TO  <XfY>  FORM 

xc 

IK 

AT  THIS  POINT »  BOTH 

PARAMETERS  HAVE  BEEN  V 

X 

CONCERTED 

AND  SIGN  ADJUSTED  IF  NECESSARY. 

X 

ON  WITH  THE  MO»JEMENT. 

76 

BD 

OIBC 

m 

P  XYMIOO  JSR 

UPPROB 

{RAISE  PROBE 

i79 

96 

A2 

A 

LDA 

CURMOD 

:7B 

81 

00 

A 

CMPA 

♦AUTMOD 

{IN  AUTO  MODE? 

'70 

27 

19 

0298 

BEG 

XYM105 

{YES 

X 

X 

X 

SEEK  POINT  RELATIVE 

TO  CAMERA 

J7F 

BD 

0000 

X 

A 

JSR 

MVPOS 

{MOVE  TO  NEW  (X»Y> 

X 

X 

USER  IN  MANUAL  MODE 

.  ALLOW  TO  JOG. 

>02 

^F 

X 

CLRA 

283 

BD 

0000 

A 

JSR 

JOG 

286 

26 

IF 

02A7 

BNE 

XYM120 

{USER  ABORTED 

288 

96 

A2 

X 

A 

LDA 

CURMOD 

28A 

81 

02 

A 

CMPA 

♦TSTMOD 

{ARE  WE  FINISHED? 

28C 

27 

19 

02A7 

BEQ 

XYM120 

{YES 

X 

X 

SEEK  TRUE 

POINT 

28E 

9E 

36 

X 

A 

LDX 

CX 

{UPDATE  NEXT 

290 

109E 

39 

A 

LDY 

CY 

293 

9F 

3C 

A 

STX 

NX 

295 

109F 

3F 

A 

STY 

NY 

298 

86 

01 

A  XYM105  LDA 

♦  1 

29A 

97 

B2 

A 

STA 

UOFSET 

{REQUEST  OFFSET  WHEN  M 

29C 

BD 

0000 

A 

JSR 

MVPOS 

29F 

OF 

B2 

A 

CLR 

UOFSET 

2A1 

BD 

OICE 

P  XYMllO  JSR 

DNPROB 

{LOWER  THE  PROBE 

2A^ 

7D 

E710 

A 

TST 

PRSWIT 

{CLOSE  SWITCH 

2A7 

OF 

A8 

A  XYM120  CLR 

DEMODE 

2A9 

39 

RTS 
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*  MOVE  PROBE  TO  <DrE>  POSITION 

K 

X  THE  PROBER  SOFTWARE  HAS  BEEN  DESIGNED  TO 

*  ONLY  MOVE  TO  (XrY>  COORDINATE  POSITIONS. 

*  THEREFORE » THE  <D»E>  COORDINATES  MUST  BE 

*  TRANSFORMED  INTO  THEIR  RESPECTIVE  <XrY) 

*  COORDINATES.  ALL  OF  THE  RESTRICTIONS  AND 

*  MODE  RULES  OF  THE  XYMOVE  ARE  VALID  ANDf 

*  IN  ADDITION »  THE  <D»E>  COORDINATES  WILL 

*  BE  IGNORED  UNTIL  BOTH  A  ND  B  ALIGNMENTS 

*  HAVE  BEEN  DESIGNATED  BY  THE  HOST. 

X 

*  CALLING  PARAMTERSI  JSR  DEMOVE 


X 


f^A 

96 

A7 

A  DEMOVE 

LDA 

ABFLAG 

AC 

8^ 

-43 

A 

ANDA 

♦*“43 

JMASK  AB 

BITS 

AE 

81 

^3 

A 

CMPA 

♦*‘43 

;has  A/B 

BEEN  GIVEN? 

BO 

27 

08 

02BA 

X 

BEQ 

DEM020 

?YES 

X  ERROR  -  A/B  ALIGNMENT  NOT  GIVEN 

X 


B2 

C6 

35 

A 

LDB 

♦UNDFAB 

B‘4 

BD 

015B 

P 

DEMERR 

JSR 

ERROR 

B7 

OF 

A8 

A 

CLR 

DEMODE 

; RESET  MODE  (DfE) 

B9 

39 

W 

RTS 

BA 

86 

FF 

A 

DEM020 

LDA 

♦*FF 

BC 

97 

A8 

A 

STA 

DEMODE 

;SET  TO  <DfE>  MODE 

;BE 

7E 

01E5 

P 

JMP 

XYMOVE 

BD-H152  687 


UNCLASSIFIED 


MANUFACTURING  METHODS  AND  TECHNOLOGV  FOR  DIGITAL  FAULT  2/ 
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00929 
00930 
.  «1 
0UV32 


* 

*  AB  HYBRID  ALZCNMENT  COORDINATES 

M 

»  THIS  ROUTINE  IS  TRIGGERED  Hh£N  THE  A/B 


00933  »  ALIGNMENT  INFORMATION  IS  SENT  BY  THE  HOST 

0093^  *  FORMAT!  ^ 


00935 

* 

AXOOOOOAYOOOOO 

1 

00936 

* 

»  OR 

-•r 

X 

00937 

'i 

X 

BXOOOOOBYOOOOO 

00938  ^  * 


00939P 

02C1 

108E 

01  AC 

A  ABALIG 

LDY 

♦EXBUFR+2 

009^0P 

02C5 

C6 

05 

A 

LOB 

«5 

009-<»lP 

02C7 

BD 

OOCA 

P 

JSR 

VALNUM 

! VALID  NUMBER 

009'^2P 

02CA 

24 

12 

020E 

BCC 

ABALIO 

JYES 

009><f3 

X 

OOP-H^ 

X  error  -  INVALID  A/B 

ARGUMENMT 

009^5 

X 

009^6P 

02CC 

8E 

OlAA 

A  ABERRO 

LDX 

♦EXBUFR 

009^7P 

02CF 

A6 

84 

A 

LOA 

»X 

!CET  FIRST  CHAR 

009^8P 

02D1 

81 

41 

A 

CMPA 

♦♦41 

;IS  IT  A  ALIGNMENTS 

009-^9P 

02D3 

27 

04 

0209 

BEQ 

ABERRl 

JYES 

00950 

X 

00951 

X  ERROR-  INVALID  B  ARGUMENT 

00952 

X 

00953P 

0205 

C6 

33 

A 

LDB 

♦INVARG 

0095^P 

02D7 

20 

02 

020B 

BRA 

ABERR 

00955P 

02D9 

C6 

33 

A  ABERRl 

LDB 

♦INVARG 

r  -’56P 

02OB 

7E 

01  SB 

P  ABERR 

JMP 

ERROR 

(iv  157 

X 

00958P 

02DE 

BO 

0000 

A  ABALIO 

JSR 

CASCB 

; CONVERT  X  COORD 

00959P 

02E1 

OOBF 

A 

FDB 

NUMBUF 

00960P 

02E3 

05 

A 

FCB 

5 

00961P 

OZE*^ 

00C5 

A 

FDB 

TEMPX 

00962 

X 

00963P 

02E6 

8E 

QIAA 

A 

LDX 

♦EXBUFR 

0096^P 

02E9 

A6 

84 

A 

LDA 

»X 

00965P 

02EB 

A1 

AO 

A 

CMPA 

»Y+ 

?DO  ARGUMENTS  MATCH? 

00966P 

02ED 

26 

06 

02F5 

BNE 

ABAL20 

;NDf  ERROR 

00967 

X 

00968P 

02EF 

A6 

AO 

A 

LDA 

»Y+ 

!GET  NEXT  CHAR 

00969P 

02F1 

81 

59 

A 

CMPA 

♦♦59 

?IS  IT  Y 

00970P 

02F3 

27 

04 

02F9 

BEQ 

ABAL30 

00971 

X 

00972 

X  ERROR  -COMMAND  SYNTAX  ERROR 

00973 

X 

0097^P 

02F5 

C6 

30 

A  ABAL20 

LDB 

♦UNKCMD 

00975P 

02F7 

20 

E2 

.02DB 

BRA 

ABERR 

00976 

X 

00977P 

02F9 

C6 

05 

A  ABAL30 

LDB 

♦5 

00978P 

02FB 

BO 

OOCA 

P 

JSR 

VALNUM 

J VALID  Y  COORD? 

00979P 

02FE 

25 

CC 

02CC 

BCS 

ABERRO 

!NO 

00980 

X 

. 

>81P 

0300 

BD 

0000 

A 

JSR 

CASCB 

» CONVERT  E  TO  ASCII 

0/  '•82P 

0303 

OOBF 

A 

FDB 

NUMBUF 

01  d3P 

0305 

05 

A 

FCB 

5 

0098^P 

0306 

00C7 

A 

FOB 

TEMPY 

00985 

X 

00986P 

0308 

BE 

OlAA 

A 

LDX 

♦EXBUFR 

PACE  026  hyiicmop.sa:o  comano  command  processor 


009e7P 

0308 

A6 

80 

A 

LDA 

»X+ 

o^'M^ep 

030D 

81 

A1 

A 

CMPA 

99^1 

0  J9P 

030F 

26 

10 

0321 

BNE 

ABALSO 

00990 

M 

00991P 

0311 

9A 

A7 

A 

ORA 

ABFLAG 

00992P 

0313 

97 

A7 

A 

8TA 

ABFLAG 

00993P 

0315 

9E 

C5 

A 

LOX 

TEMPX 

0099AP 

0317 

BF 

0100 

A 

STX 

RAX 

00995P 

031A 

9E 

C7 

A 

LDX 

TEMPY 

00996P 

031C 

BF 

0102 

A 

STX 

RAY 

00997P 

031F 

20 

OE 

032F 

BRA 

ABAL60 

00998 

m 

00999P 

0321 

9A 

A7 

A 

ABALSO 

ORA 

ABFLAG 

OlOOOP 

0323 

97 

A7 

A 

STA 

ABFLAG 

OlOOlP 

0325 

9E 

C5 

A 

LDX 

TEMPX 

01002P 

0327 

BF 

010^ 

A 

STX 

RBX 

01003P 

032 A 

9E 

C7 

A 

LDX 

TEMPY 

0100-'»P 

032C 

BF 

0106 

A 

STX 

RBY 

01005 

84 

43 

A 

JeAL60 

ANDA 

#$43 

01006P 

032F 

81 

43 

A 

CMPA 

■#$43 

01007P 

0331 

21 

03 

A 

BEQ 

ASSET  . 

01008P 

0333 

39 

A 

BTS 

01009P 

033^ 

iS 

A 

NOP 

OlOlOP 

0337 

12 

A 

ROP 

I MAS  THIS  'A*  ALIGNMEN 
»NO 

»SET  A  flm;  to  XNOIC 
»THAT  A  DATA  RECEIVES 
tSET  A  COORDINATE 


VINDICATE  "B'ALIG 
;WAS  SET 
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01012 

X 

P"»13 

X 

name:  ABSET 

L. 

X 

OlvlS 

X 

function: 

THIS  SUBROUTINE  HILL  ALLOW  THE 

01016 

X 

THE  USER  TO  SET  THE  A/B  ALICNME 

01017 

X 

VALUES 

MANUALLY*  > 

01018 

X 

01019 

X 

CALLING 

sequence:  JSR  ABSET' 

01020 

X 

■4. 

01021 

X 

UPON  return: 

A/B  VALUES  SET  IF  PROC 

01022 

X 

WAS  NOT  ABORTED* 

01023 

X 

0102^P 

0338 

BO 

0000 

A  ABSET  JSR 

ONLTE 

01025F' 

0338 

30 

A 

FCB 

LABLCN 

01026 

X 

01027P 

033C 

9E 

36 

A 

LOX 

CX 

01028P 

033E 

9P 

94 

A 

STX 

CXSAVE 

:SAVE  CURRENT  POS 

01029P 

03^0 

9E 

39 

A 

LOX 

CY 

01030P 

03^2 

9F 

96 

A 

STX 

CYSAUE 

01031P 

03^^ 

96 

A4 

A 

LOA 

ZOIR 

01032P 

03^6 

97 

77 

A 

STA 

ZSAVE 

01033 

X 

0103^P 

03^8 

06 

A7 

A 

LOB 

ABFLAC 

mAS  A  VAL  ALREADY  BEE 

01035P 

034A 

C5 

01 

A 

BITB 

«1 

01036P 

03-4C 

27 

09 

0357 

BEQ 

ABS015 

:no 

01037 

X 

01038P 

03<4E 

BE 

0100 

A 

LOX 

RAX 

;CO  TO  CUURENT  VALUES 

’39P 

0351 

lOBE 

0102 

A 

LDY 

RAY 

OV^  'lOP 

0355 

20 

lA 

0371 

BRA 

ABS020 

010-^1 

X 

010^2 

X 

LEARN  THE 

A  REFERENCE  POINT 

010-43 

X 

010^4P 

0357 

BO 

0000 

A  ABS015  JSR 

ENTER 

OlO-^SP 

035 A 

04AF 

P 

FOB 

ENT  AX 

010^6P 

035C 

17 

A 

FCB 

23 

010'47P 

0350 

05 

A 

FCB 

5 

CENTER  AX  COORD 

010^8 

X 

010^9P 

03SC 

26 

7A 

030 A 

8NE 

ABS060 

:USER  ABORTED 

OlOSOP 

0360 

109F 

8C 

A 

STY 

SREFAX 

:SAVE  REF  AX 

01051 

X 

01052P 

0363 

80 

0000 

A 

JSR 

ENTER 

01053P 

0366 

04CB 

P 

FOB 

ENTAY 

OlOS^P 

0368 

17 

A 

FCB 

23 

01055P 

0369 

05 

A 

FCB 

5 

CENTER  REF  AY 

01056 

X 

01057P 

036A 

26 

6E 

a  30  A 

BNE 

ABS060 

lUSER  ABORTED 

olosep 

036C 

109F 

BE 

A 

STY 

SREFAY 

:SAVE  REF  AY 

01059 

X 

01060 

• 

X 

LOCATE  THE 

A  POSITION  ANO  ALLOW  TO  JOG 

01061 

X 

01062P 

036F 

9E 

8C 

A 

LOX 

SREFAX 

P''063P 

0371 

80 

Olio 

P  A8S020  JSR 

LOCATE 

» LOCATE  POSITION 

J6^P 

0374 

25 

SO 

03C6 

BCS 

AB8050 

:USER  ABORTED 

0^65 

K 

OV  ^ 

0376 

9F 

6C 

A 

STX 

SREFAX 

IHOLD  NEW  A 

01067P 

0378 

109F 

8E 

A 

STY 

SREFAY 

01068 

X 

01069 

K 

NOM  00  THE 

SAME  FOR  THE  6  POINT 
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01070  » 


01^71P 

0378 

06 

A7 

A 

LOB 

ABFLAG 

>18  B  VALUE  KNOWN? 

C  '2P 

037D 

C5 

02 

A 

BITB 

*2 

01U73P 

037F 

27 

09 

OSSA 

BEQ 

A&S030 

>NO 

0107^ 

X 

01075P 

0381 

BE 

0104 

A 

LOX 

RBX 

»GO  TOKNOHN  lOCATION 

01076P 

0384 

lOBE 

0106 

A 

LDY 

RBY 

.  ■  i 

01077P 

0388 

20 

lA 

03A4 

BRA 

ABS040 

01078 

X 

\ 

01079 

X 

LEARN  THE 

B  REFERENCE  POINT 

01080 

X 

01081P 

038 A 

80 

0000 

A  ABS030  JSR 

ENTER 

01082P 

038D 

04E1 

P 

FOB 

ENTBX 

oloasp 

038F 

17 

A 

FCB 

23 

0108-<»P 

0390 

05 

A 

FCB 

5 

CENTER  BX  COORD 

01085 

X 

01086P 

0391 

26 

33 

03C6 

6NE 

ABS050 

;USER  ABORTED 

010e7P 

0393 

109F 

90 

A 

STY 

SREFBX 

;SAVE  NEW  REF  BX 

01088 

X 

01089P 

0396 

80 

0000 

A 

JSR 

ENTER 

01090P 

0399 

04FA 

P 

FOB 

ENT8Y 

01 09 IP 

0398 

17 

A 

FCB 

23 

01092P 

039C 

05 

A 

FCB 

5 

; ENTER  BY  COORD 

01093 

X 

0109‘^P 

039D 

26 

27 

03C6 

BNE 

ABS050 

»USER  ABORTED 

01095P 

039F 

109F 

92 

A 

STY 

SREFBY 

»SAVE  NEW  REF  BY 

01096 

X 

0  ■'97 

X 

LOCATE  THE  B  REFERENCE  POINT 

0—  98 

X 

01099P 

03A2 

9E 

90 

A 

LOX 

SREFBX 

OllOOP 

03A4 

80 

0110 

P  ABS040  JSR 

LOCATE 

; LOCATE  B 

OllOlP 

03A7 

25 

10 

03C6 

8CS 

A8S050 

;USER  ABORTED 

01102 

X 

01103P 

03A9 

BF 

0104 

A 

STX 

RBX 

» UPDATE  TO  NEW  POS 

OllO-^P 

03AC 

lOBF 

0106 

A 

STY 

RBY 

Olios 

X 

01106P 

0380 

9E 

8C 

A 

LOX 

SREFAX 

01107P 

0382 

109E 

8E 

A 

LDY 

SREFAY 

01108P 

0385 

BF 

0100 

A 

STX 

RAX 

01109P 

0388 

lOBF 

0102 

A 

STY 

RAY 

OHIO 

X 

01111 

X 

TRANSFORM  THE  NEW 

REFERENCE  POINTS 

01112 

X 

01113P 

038C 

4F 

CLRA 

0111‘^P 

038D 

BO 

0000 

A 

JSR 

CREFD 

01115 

X 

OlllAP 

03C0 

06 

A7 

A 

LOB 

ABFLAG 

01117P 

03C2 

CA 

43 

A 

ORB 

♦*43 

»SET  TO  AB  KNOWN 

01118P 

03C4 

07 

A7 

A 

STB 

ABFLAG 

01119 

X 

01120 

X 

RETURN  TO 

PREVIOUS 

POSITION 

01121 

X 

r  22P 

03C6 

9E 

94 

A  ABS050  LOX 

CXSAVE 

ft  23P 

03ce 

109E 

96 

A 

LDY 

CYSAVE 

P*^2^P 

03C8 

9F 

3C 

A 

STX 

NX 

01125P 

03CD 

109F 

3F 

A 

STY 

NY 

» UPDATE  NEXT  POS 

01126P 

0300 

BO 

0000 

A 

JSR 

MVPOS 

01127  K 


PACE  029  hyiicmdp*sa:o  comand  command  processor 


0112BP 

03D3 

OD 

77 

A 

TST 

ZSAVE 

0M29P 

03D5 

27 

03 

03DA 

BEQ 

ABS060 

,  30P 

03D7 

BD 

OICE 

P 

JSR 

ONPROB 

onsip 

03DA 

BD 

0000 

A 

ABS060 

JSR 

OFFLTE 

01132P 

01133P 

0113^ 

01135 

03DO 

03DE 

39 

30 

A 

ABABRT 

FCB 

RTS 

LABLCN 

>MAS  PROBE  UP 
I  YES 


»TURN  OFY^  AB  LIGHT 
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57 

X 

58 

X 

THE  FOLLOHZNG  SET  OF  SUBROUTINES  HILL  GATH 

j9 

X 

THE  REQUESTED  INFORMATION  AND  STORE  IT  IN 

60 

X 

THE  OUTPUT  QUEUE*  HHEN  THE  PROBER  BECOMES 

.61 

X 

A  TALKER*  THE  INFORMATION  HiLL  BE  SENT  TO 

62 

X 

CONTROLLER  UIA  IEEE-888  PROTOCOL 

.63 

X 

i 

.6^ 

.65 

.* 

X 

.66 

i 

X 

SEND  (X*Y>POSITION  TO  CONTROLLER 

L67 

ti 

X 

L68 

X 

UPON  REQUEST  OF  A  'SP'  (SEND  X»Y  POSITIO 

L69 

X 

THIS  ROUTINE  WILL  FETCH  THE  CURRENT  X  AN 

L70 

X 

POSITION  OF  THE  PROBE*  CONVERT  IT  TO  ASC 

L71 

X 

ANDSTORE  THE  INFORMATION  IN  THE  OUTPUT  Q 

L72 

X 

L73 

X 

CALLING  sequence:  JSR  XYSEND 

17-^ 

X 

L75P 

03EE 

BD 

0000 

A  XYSEND  JSR  CBASC  ;CONt^ERT  CUR  X  TO  ASCI 

176P 

03F1 

0036 

A 

FDB  CX 

177P 

03F3 

01D8 

A 

FDB  CXYPOS+1 

178P 

03F5 

05 

A 

FCB  5 

179 

X 

180P 

03F6 

BD 

0000 

A 

JSR  CBASC  : CONVERT  CUR  Y  TO  ASCI 

181P 

03F9 

0039 

A 

FDB  CY 

182P 

03FEi 

OlOA 

A 

FDB  CXYPOS+7 

183P 

03FD 

05 

A 

FCB  5 

8^ 

X 

35 

X 

STORE  INFO  INTO  OUTPUT  QUEUE 

186 

X 

187P 

03FE 

108E 

0103 

A 

LDY  ♦CXYPOS  f POINTER  TO  ASCII  INFO 

188 

X 

189P 

0802 

BE 

0866 

A  XYSOlO  LDX  ♦OUTBCF 

190P 

0805 

E6 

AO 

A  XYS020  LOB  rY+  >CET  CHAR 

191P 

0807 

BO 

0065 

P 

JSR  PUTCHR  ;FIT  IN  BUFFER? 

192P 

080A 

25 

06 

0812 

BCS  XYS050  *NO 

193 

X 

198P 

080C 

Cl 

OA 

A 

CMPB  ♦STRTRM  JLAST  CHAR? 

195P 

080E 

26 

F5 

0805 

BNE  XYS020  »NO 

196 

X 

197P 

0810 

OC 

AE 

A 

INC  OUTCNT  JYESf  SET  OUT  COUNT 

198P 

0812 

39 

XYSOSO  RTS 

199 
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201 

m 

'>02 

X 

SEND  (D»E> 

POSITION  TO  CONTROLLER 

03 

X 

20*4 

X 

UPON  REQUEST  OF  A  ’SD*  (SEND  0»E  POSITIO 

.205 

X 

THIS  ROUTINE  WILL  FETCH  THE  CURRENT  (X»Y 

206 

■" 

X 

POSITION 

AND  CONVERT  IT  TO  A  4  BYTE  SIGN 

.207 

X 

RELATIVE 

BINARY  NUMBER*  A 

208 

X 

209 

IL 

\ 

X 

CALLING  sequence:  JSR  DESEND 

.210 

C 

X 

.211P 

0413  96 

A7 

A  DESEND  LDA 

ABFLAG  :HAS  AB  ALIGN  BEEN  CIV 

L212P 

0415  81 

47 

A 

CMPA 

♦447  :a+b+offset  known 

.21 3P 

0417  27 

05 

041E 

8EQ 

OESOlo  :yes 

L21^ 

X 

l215 

X 

ERROR  -  NOT  VALID  BECAUSE  A/B  ALIGNMENT 

L216 

X 

HAS  NOT 

BEEN  GIVEN  BY  HOST  YET. 

L217 

X 

1218P 

0419  C6 

35 

A 

LOB 

♦UNDFAB 

1219P 

041E:  7E 

015B 

P 

JMP 

ERROR 

1220 

X 

1221P 

041E  4F 

DESOlO  CLRA 

:USE  REF  1 

1222P 

04 IF  BD 

0000 

A 

JSR 

CDEV  .CONVERT  X»Y  TO  D»E 

1223P 

0422  86 

2B 

A 

LDA 

♦426  : ASSUME  POSITIVE 

1224P 

0424  OD 

41 

A 

TST 

DD  »IS  VALUE  OF  D  POS? 

1225P 

0426  2A 

09 

0431 

BPL 

DES020  :yes 

1226 

X 

1227 

X 

NEGATE  DO 

TO  MAKE  A  POSITIVE  VALUE 

28 

X 

.  .29P 

0428  CC 

0000 

A 

LOO 

90 

1230P 

042B  93 

41 

A 

SUBD 

DD 

1231P 

042D  DD 

41 

A 

STD 

DD 

1232 

X 

1233P 

042F  86 

2D 

A 

LDA 

♦92D  ;MAKE  -  SIGN 

123^P 

0431  B7 

01E2 

A  DES020  STA 

CDEPOS-M  ;SAVE  SIGN 

1235P 

0434  BD 

0000 

A 

JSR 

CBASC  ; CONVERT  DD  TO  ASCII 

1236P 

0437 

0041 

A 

FDB 

DD 

1237P 

0439 

01E3 

A 

FOB 

CDEPOS+2 

1238P 

043B 

05 

A 

FCB 

5 

1239 

X 

12^0 

X 

NOW  DO  THE 

SAME  FOR  THE  EE  COORDINATE 

12^1 

X 

12^2P 

043C  86 

2B 

A 

LDA 

942B  ; ASSUME  POS 

12^3P 

043E  OD 

45 

A 

TST 

EE  :1S  EE  POS? 

12^^P 

0440  2A 

09 

044B 

BPL 

DES050  ;yes 

12^5 

X 

12-96 

.•  •  . 

X 

NEGATE  TO 

MAKE  IT  POSITIVE 

1247 

.  X 

1248P 

0442  CC 

0000 

A 

LDD 

90 

1249P 

0445  93 

45 

A 

SUBD 

EE 

12S0P 

0447  DO 

45 

A 

STD 

EE 

1251 

X 

1252P 

0449  86 

2D 

A 

LDA 

992D  :MAKE  sign  MEG 

53P 

0448  87 

01E9 

A  DE8050  STA 

C0EP08-»-8  ;SAVE  SIGN 

'  '54 

X 

.255 

X 

CONVERT  EE  POSITION  TO  ASCII 

1256 

X 

1257P 

044E  80 

0000 

A 

JSR 

CBASC 

12S8P 

0451 

0045 

A 

FOB 

EE 
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bS 

i6 

X 

* 

SEND  THE  PROBER  ERROR  CODE 

^8 

m 

THIS  ROUTINE  IS  TRIGERREO  ONLY  WHEN  TH 

S9 

* 

CONTROLLER  REQUESTS  WHAT  ERROR  TAST  OCCU 

^0 

K 

THE  CONTROLLER  CAN  DETECT  A  PROBER  ERROR 

71 

X 

BY  REQUESTING  STATUS  AND  POLLING  THE  ERR 

72 

* 

X 

BIT  (BIT  2>  OF  THE  STATUS  BYTT*  THIS  ER 

73 

r» 

X 

BIT  AND  THE  CODE  BYTE  WILL  BE  CLEARED  AT 

-  ^ 

7^ 

X 

EXEC  LEUEL  IF  THE  NEXT  COMMAND  FOLLOWING 

75 

X 

ERROR  IS  NOT  EITHER  A  STATUS  REQUEST  OR 

76 

X 

THE  'SE*  (SEND  PROBER  ERROR  REQUEST)  COM 

77 

X 

AFTER  THE  ERROR  REQUEST  IS  SENT  THE  ERRO 

7B 

X 

BIT  WILL  BE  CLEARED  AND  THE  ERROR  CODE  S 

79 

X 

TO  NO  ERROR. 

, 

BO 

X 

B1 

X 

c:alling  parameter:  ldb  prob 

82 

X 

JSR  ERSE 

, 

83 

X 

8^P 

O^SD 

34 

04 

A  ERSEND  PSHS  B  JSAI^E  ERROR  CODE 

85P 

O-^SF 

BE 

0466 

A 

LDX  ♦OUTBCF  »INIT  OUTPUT  BCF 

86P 

0462 

CC 

04D4 

A 

LDD  •OUTBUF 

87P 

0465 

108E 

0539 

A 

LDY  ♦OUTEND 

88P  0^69 

BD 

0104 

P 

JSR  INTBCF 

;89 

X 

90P 

046C 

35 

04 

A 

PULS  B  : RESTORE  CODE 

:91P 

046E 

8E 

0466 

A 

LDX  ♦OUTBCF 

92P 

0471 

BD 

0065 

P 

JSR  PUTCHR 

;93 

X 

:9^p 

0474 

BD 

OlOE 

P 

JSR  OTCRLF  : OUTPUT  CR/LF 

595P 

0477 

OC 

AE 

A 

INC  OUTCNT  ?SET  FOR  REQUEST 

:96P 

0479 

39 

RTS 

197 

:98 

X 

199 

X 

FORM  STATUS  BYTE 

100 

X 

THIS  ROUTINE  WILL  GATHER  THE  STATE  OF  SEVE 

1 

)01 

X 

FLAGS  AND  COMBINE  THEM  INTO  A  SINGLE  BYTE 

102 

X 

AS  follows: 

)03 

X 

>0^ 

X 

STATUS  BYTE  CONFIGURATION  »  OIZBOEMM 

JOS 

X 

where: 

106 

X 

J07 

X 

Z  »  (0/1)  PROBE  Z  POSITION  (UP/DOWN) 

J08 

X 

B  «  (0/1)  PROBE  BUSY  (NOT  BUSY/BUSY) 

t09 

X 

0  -  (0/1)  ONLINE/OFFLINE  FLAG 

JIO 

. 

X 

E  -  (0/1)  PROBER  ERROR  (NO  ERROR/ERROR) 

111 

i 

X 

MM  -  00  -  AUTOMATIC  MODE 

J12 

❖ 

X 

01  -  MANUAL/STEP  MODE 

113 

1 

X 

10  -  TEST  MODE 

)1^ 

X 

11  “  IDLE  MODE  : 

J15 

• 

X 

J16 

X 

THIS  ROUTINE  IS  TRIGGERED  WHEN  liHE  CONTROL 

517 

X 

BENDS  THE  *??•  STATUS  REQUEST  COMMAND. 

ris 

X 

>19 

X 

CALLING  PARAMTERS:  JSR  FORMST 

)20 

X 

J21 

X 

return:  a-reg  contains  status  byte 

322 

X 

■  1 

■  ■  — 

-  -  '  - 

•  .1 
.  ‘.1 

. 
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047A 

86 

40 

A  FORMST 

LOA 

•440 

flNTT  THE  STATUS  BYTE 

0A7C 

34 

02 

A 

PSHS 

A 

(WORK  OFF  OF  STACK 

OVE 

D6 

A4 

A 

LOB 

ZOIR 

ICURRENTji  DIRECTION 

0480 

C4 

20 

A 

ANDB 

•ZBXT 

■0*^  A  " 

0482 

EA 

E4 

A 

ORB 

0»S 

»  COMBINE^ 

'  0484 

•  ft 

E7 

E4 

A 

STB 

OfS 

-.y 

0486 

OD 

AF 

A 

TST 

INCNT 

» DEVICE  mm  . 

•  0488 

27 

06 

0490 

BEG 

FORMIO 

fNO 

'  048A 

C6 

10 

A 

LOB 

•BBZT 

tYES 

*  048C 

EA 

E4 

A 

ORB 

0»S 

’  048E 

E7 

E4 

A 

STB 

0»S 

■  0490 

D6 

9F 

A  FORMIO 

LOB 

ONOFFL 

»GET  ONLINE/OFFLINE  ST 

>  0492 

C4 

18 

A 

ANDB 

♦OBIT+BBIT  »SET  BUSY  ALSO  IF 

>  0494 

EA 

E4 

A 

ORB 

0  »s 

»IN  OFFLINE 

>  0496 

E7 

E4 

A 

STB 

0  >s 

>  0498 

06 

A6 

9k 

A 

LOB 

ESTATE 

J CURRENT  ERROR  STATE 

=•  049A 

C4 

04 

A 

ANDB 

♦EBIT 

>  049C 

EA 

E4 

A 

ORB 

OfS 

=■  049E 

E7 

E4 

A 

STB 

OfS 

»  04A0 

06 

A2 

M 

A 

LDB 

CURMOD 

J CURRENT  OPERATIONS  MO 

=•  04A2 

C4 

03 

A 

ANDB 

♦MBIT 

>  04A4 

EA 

E4 

A 

ORB 

OfS 

P  04A6 

E7 

E4 

A 

STB 

OfS 

=•  04A8 

35 

02 

M 

A 

PULS 

A 

?GET  FINAL  RESULT 

P  04AA 

39 

RTS 

ft 

« 
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OAAB 

0000 

A 

ZER032 

FDB 

♦o»oo 

O-^AF 

A5 

A 

ENT  AX 

FCC 

/ENTER  AX 

POSITION t 

/ 

0AC7 

OD 

A 

FCB 

OOD 

O^CS 

A5 

A 

ENTAY 

FCC 

/ENTER  AY 

position:  ^ 

/ 

0^0 

OD 

A 

FCB 

«0D 

OAEl 

A5 

A 

ENTBX 

FCC 

/ENTER  BX 

POSITIONt  ^lf " 

/ 

0AF9 

OD 

A 

FCB 

«0D 

t 

OAFA 

^5 

A 

ENTBY 

FCC 

/ENTER  BY 

position:  M  ' 

/ 

0512 

00 

A 

FCB 

•  OD 

.'z* 

0513 

AF 

A 

ONTRGM 

FCC 

/ON  TARGET?/ 

05iD 

OD 

A 

FCB 

•OD 

051E 

AD 

A 

MODMSG 

FCC 

/MODE  TO  TEST  POINT/ 

0530 

OD 

A 

FCB 

•OD 

M 

m  COMMAND  TABLE 


’  0531 

AD 

A  CMDTBL 

FCC 

■  0533 

FC35 

A 

FDB 

'  0535 

AD 

A 

FCC 

•  0537 

FC3A 

A 

FDB 

•  0539 

AD 

A 

FCC 

•  053B 

FCAE 

A 

FDB 

■  053D 

AD 

A 

FCC 

•  053F 

FC61 

A 

FDB 

=■  05A1 

55 

A 

FCC 

■  05A3 

FC79 

A 

FDB 

^  05A5 

AA 

A 

FCC 

■  05A7 

FC87 

A 

FDB 

=■  05A9 

58 

A 

FCC 

=•  05AA 

00 

A 

FCB 

=•  05AB 

FC9A 

A 

FDB 

05 AD 

AA 

A 

FCC 

-  05AE 

00 

A 

FCB 

05AF 

FD5B 

A 

FDB 

=■  0551 

A8 

A 

FCC 

0553 

FESC 

A 

FDB 

=■  0555 

A1 

A 

FCC 

=■  0557 

FD6A 

A 

FDB 

=•  0559 

A2 

A 

FCC 

055B 

FD66 

A 

FDB 

=•  055D 

55 

A 

FCC 

=•  055F 

FE89 

A 

FDB 

=*  0561 

AC 

A 

FCC 

=-  0563 

FE88 

A 

FDB 

/MS/ 

GETMSG-*  JGET  MESSAGE 
/MO/ 

AUTPRB-*  » PROBE  MODE  TO  AUTO 
/Mi/ 

MANPRB-*  J PROBE  MODE  TO  MANUAL 
/M2/ 

TSTPRB-*  J PROBE  MODE  TO  TEST 
/UP/ 

UPPROB-*  PRAISE  PROBE 
/DN/ 

DNPROB-*  ; LOWER  PROBE 
/X/ 

DONTCR 

XYMOUE-*  JMOVE  TO  XrY 
/D/ 

DONTCR 

DEMODE-*  JGO  TO  DE 
/HO/ 

HOPROB-*  ?HOME  PROBE  TABLE 
/AX/ 

ABALIG-x  ;A  of  AB  ALIGN 
/BX/ 

ABALIG-*  fB  OF  AB  ALIGN 
/UL/ 

UNLOAD-*  » UNLOAD  HYBRID 
/LD/ 

LOADHY-*  ;L0AD  HYBRID 


« 

- 

X 

A 

X 

STATUS 

K 

X 

> 

0565 

53 

A 

FCC 

> 

0567 

FE87 

A 

FDB 

0569 

53 

A 

FCC 

y 

0566 

FEAB 

A 

FDB 

056D 

53 

A 

FCC 

> 

0S6F 

FEEE 

A 

FDB 

F> 

0571 

FF 

A 

FCB 

REQUEST  PROCESSORS 

/SP/  i 

XYSEND-*  »SEND  X»Y  PMITION 
/SO/  T 

OESEND-K  I SEND  0»E  POSITION 
/SE/ 

ERSEND-*  I SEND  ERROR  CODE 
EOTCHR 


END 
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TOTAL  ERRORS  00000 — 00000 
Tr>TAL  WARNINGS  00000—00000 


P  03DE  ABABRT  01133X 
P  020E  ABALIO  00942  00958)K 
P  02F5  ABAL20  00966  00974X 
P  02F9  ABAL30  00970  00977k 
P  0321  A^SO  00989  00999k 
P  032F  ABAL60  00997  01006K 
P  0337  ABAL70  01007  01010k 
P  02C1  ABALIG  00939K01394  01396 
P  02DB  ABERR  00954  00956K0097S 
P  02CC  ABERRO  00946K00979 
P  02D9  ABERRl  00949  009S5X 

00A7  ABFLAG  001S9K00768  00912  00991  00992  00999  01000  01034  01071 
01116  01118  01211 
P  0357  ABS015  01036  01044K 
P  0371  ABS020  01040  01063k 
P  038A  ABS030  01073  01081K 
P  03A4  ABS040  01077  01100k 

P  03C6  ABS050  01064  01086  01094  OllOl  01122k 
P  030A  A6S060  01049  010S7  01129  01131K 
DP  0338  ABSET  00012  01024K 
0085  APUERR  00048k 

0000  AUTMOO  00088K00601  00608  00861 
r  ,0171  AUTPRB  00010  00600K01376 
I  V.  0186  AUTPRT  00602  00612x00641  00668 
0086  AXXSER  00049k 
OOAO  AXISZN  00066K 
0090  AXISTO  OOOSZK 
0032  BAOCTR  00035x00267 
0010  BBZT  00 095X01333  01338 
I  0004  BOFFST  00107x00769 

0024  BUFLEN  00104x00213  00220 
R  CASCB  00017X00781  00815  00958  00981 

R  CBASC  00018x01175  01180  01235  01257 

OlEl  CDEPOS  00170x01234  01237  01253  01259  01262 
R  CDEV/  00019x01222 

P  0531  CMDTBL  00251  01373X 
P  0009  CHIN15  00215X00217 
P  0014  CMZN20  00221X00230 
P  0025  CM1N35  00235x00239 
P  0031  CMZN37  00223  00237  00241X 
P  0030  CHZN40  00227  00251k 
P  005F  CHIN50  00255  e0272K 
P  0061  CHZN60  00268  00273k 
P  0064  CHZN70  00266  00274X 

DP  0000  CHZNTP  00008  00211X  t 

R  CREFD  00020x01009  01114  S 

00A2  CURMOD  00139x00600  00609  00628  00637  00656  00665  00696  00712 
00759  00860  00875  01347  ^  - 

\  CUROFF  00016X00607  00635  00663 
0036  CX  00114X00533  00881  01027  01176 
0094  CXSAVfE  00171K01028  01122 
R  CXYPF  00018X00853 

01D3  CXYP08  00169x01177  011B2  01187 
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0039  CY 
0096  CYSAVE 
4)041  DD 


P 

P 


026A 
02B4 
OOAS 
OZAA 
041E 
0431 
044B 
0413 
DP  DICE 
P  OlEO 
0000 
0087 
R 

0004 

0045 


P 

P 

P 

P 

P 


P 

P 

P 

P 


04AF 

04C8 

04E1 

04FA 


OOFF 
P  015B 
^0165 
V.  ^0450 
00A6 
OlAA 

R 

P  0490 
DP  047 A 
R 

P  009A 
DP  0086 
P  0168 
DP  03DF 
0003 
0081 
04SE 
OOAF 
DP  0104 
0033 
0031 
R 

0030 
0045 
0083 
»  03EB 

« 

\  >  01 ID 
P  013F 
P  0142 
0040 


DEM020 

DEMERR 

DEHODE 

DEHOV/E 

DESOIO 

DE8020 

DES050 

DESEND 

DNPROB 

DNRTN 

DONTCR 

DSKERR 

DSPL 

EBIT  . 

EE 

ENT  AX 

ENTAY 

ENTBX 

ENTBY 

ENTER 

EOTCHR 

ERROR 

ERRTN 

ERSENO 

ESTATE 

EXBUFR 

FLSHYN 

FORHIO 

FORMST 

FPSUB 

GETC30 

CETCHR 

CETMSC 

HOPROB 

ZDLHOD 

lEEEER 

INBCF 

INCNT 

INTBCF 

ZNVARG 

ZNUCHR 

JQC 

LABLCN 

LAUTO 

LIMERR 

LOADHY 

LOADKY 

LOCO 10 

LOCATE 

LOCRTl 

LOCRTN 

L8TEP 


00115K00534  00882  01029  01181 
00172X01030  01123 

00118x00829  00833  00834  00840  00844  01224  01230  01231 
01236  . 

00915  00924X  ‘ 

00766  00773  00802  00811  00920X  *  * 

00160x00431  00789  00822  00892  00921  00925  V  ^  <>> 
00912X01390 

01213  01221X  : 

01225  01234X 
01244  01253X 
01211X01408 

00011  00711x00890  01130  01384 
00692  00714  00723X 
00105x00369  01386  01389 
OOOSOx 

00020x00517  00524  00579 
00097x01343 

00119x00830  00837  00838  00846  00850  01243  01249  01250 
01258 

01045  01357X 
01053  01359X 
01082  01361X 
01090  Q1363X 

00020X01044  01052  01081  01089 
00106X00392  01411 

00273  00561X00673  00724  00920  00956  01219 


00563  00569X 
01284x01410 

00158x00262  00567  01342 

00155X00212  00219  00252  00580  00775  00939  00946  00963 
00986 

00021x00520 
01332  01337X 
00009  01324X 
00019X 

00337  00342X 

00008  00222  00236  00329x 
00579x01374 
00011  01143X01392 
00085x00660  00691  00713  00760 
00044X 

00152X00221  00235 
00154X01331 
00009  00472X01288 
00036X00810  00953  00955 
00034X00801 

00019X00528  00872  v  ' 

00029x01025  01132  . 

00025X00611  ^ 

00046X 

01155x01400  ^ 

00021X01155 
00517X00529 
00512x01063  01100 
00522  00531X 
00521  0Q533X 
00027X00640 


f 
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00^2 

LTE8T 

00026K00667 

0033 

LUPDHN 

00028x00698 

00720 

r 

0189 

HANPRB 

00010  00628X01378 

r 

019E 

HANPRT 

00630  00691X 

DP 

009F 

HATCH 

00012  00259 

00362X 

P 

00A4 

MATCH2 

00368X00377 

00396 

■- 

P 

OOAE 

HATCHS 

00370  00375X 

P 

0086 

HATCH5 

00373  00387X 

P 

OOC7 

HATCH7 

00393  00398X 

0003 

HBIT 

00098x01398 

0060 

HOVEZ 

00127X 

P 

051E 

hov;hsg 

00525  01367X 

OOAO 

HTCNT 

00156x00363 

00395 

DP 

0198 

HUPARK 

00012  00S93X 

R 

HVPOS 

00018X00515 

00598 

00867 

00887 

01126 

0036 

NCFSET 

00039x00772 

OOBF 

NUHBUF 

00162X00993 

00782 

00816 

00959 

00982 

003C 

NX 

00116X00512 

00595 

00825 

00883 

01129 

003F 

NY 

00117x00513 

00596 

00826 

00889 

01125 

005E 

NZ 

0Q120X 

0008 

OBIT 

00096X01338 

R 

OFFLTE 

00017X00697 

01131 

R 

ONLTE 

00016x00610 

00639 

00666 

00719 

01029 

009F 

ONOFFL 

00168x00562 

01337 

P 

0513 

ONTRCH 

00518  0136SX 

0080 

OPABRT 

00093X 

DP 

OlOE 

OTCRLF 

00009  00985X01299 

0966 

OUTBCF 

00153X01189 

01285 

01291 

/^9D9 

OUTBUF 

00192x01286 

OOAE 

OUTCNT 

00191X01197 

01295 

0539 

OUTEND 

00193x01287 

OOA9 

OVRFLW 

00167X00211 

00297 

00265 

9E20 

PARKX 

00108X00593 

9E20 

PARKY 

00109X00599 

P 

01B7 

PRBERR 

00605  00633 

00661 

00672X 

00A3 

PROBER 

00138X00260 

00261 

00565 

E710 

pRswrr 

00182X00891 

P 

0079 

PUTCIO 

00300  00305X 

P 

007C 

PUTC20 

00309X00393 

P 

0081 

PUTC30 

00306  00313x00333 

DP 

0065 

PUTCHR 

00008  00299X00988 

00990 

01191 

01292 

0100 

RAX 

00122x00999 

01038 

01108 

0102 

RAY 

00123X00996 

01039 

01109 

0109 

RBX 

00129x01002 

01075 

01103 

0106 

RBY 

00125X01009 

01076 

01109 

DP 

015F 

RERROR 

00012  00565X 

R 

8FL0AT 

00018X00832 

00836 

OQCF 

8RCPTR 

00157X00369 

00399 

008C 

8REFAX 

00175X01050 

01062 

01066 

01106 

008E 

8REFAY 

00176X01058 

01067 

01107 

0090 

8REFBX 

00177x01087 

01099 

0092 

8REFBY 

00178X01095 

0001 

8TPH00 

00087X00629 

00636 

■C 

^OOA 

STRTRH 

00103X00226 

00238 

01199 

t 

TCLRDP 

00020X00582 

00C5 

TEHPX 

00163X00789 

00820 

00961 

00993 

01001 

00C7 

TEHPY 

00169X00818 

00821 

00989 

00995 

01003 

R 

TOUCHD 

00017X00716 

PACE  OAO  HYllDOP.SAtO  COHAND  COMHAND  PROCESSOR 
008^  TRSHER  000^7x 

0002  T8TH00  00086x00604  00632  00657  00664  00876 
L  ^lAO  T8TPRB  00010  00656x01380 
^0185  TBTRTN  00658  0066ex 

0035  ONDFAB  00038x00919  01218 
0030  UNKCHD  00033x00272  00974 
0082  UNKZNT  00045X 
R  IJNLDKY  00021X01151 

P  03EB  UNLOAD  01151x01398 

0082  iJC^SET  00128x00886  00888 
P  01C2  UPALHY  00514  00547  00694XQ1143 
DP  018C  UPPR08  00011  00689x00859  01382 
P  OOCE  VALOlO  00427X00429 
P  OOE4  VAL030  00432  00438  00442k 
P  00E6  V>AL050  00435  00441  00443k 
P  00E9  UAL060  00444K00452 
P  OOFF  VALERR  00446  00448  004S9K 
P  OOCA  VALNUM  00423K00777  00805  00941  00978 
009E  VALSGN  00161K00425  00440  00455 
0034  MRGMOD  00037K00672  00723  00765 


00C4  XDSZGN  00165x00779  00841 
0078  XOFFS  00129K 
P  OlFO  XYHOlO  00761  00768k 
P  OlFB  XYM020  00770  00775k 
P  021C  XYH025  00790  00796k 
P  0220  XYM030  00794  00801k 
P  0225  XYH040  00793  00797  00804k 
JD22C  XYM050  00778  00810k 
V_ 4)231  XYM060  00806  00813k 
P  0248  XYH070  00823  00829K 
P  0268  XYH080  00842  00846k 
P  0272  XYM090  00848  00852k 
P  0276  XYMIOO  00827  00859k 
P  0298  XYM105  00862  00885k 
P  OZAl  XYMllO  00890K 
P  02A7  XYM120  00873  00877  00892k 
P  01E5  XYHOVE  00759K00926  01387 
P  0402  XYSOlO  01189K01263 
P  0405  XY8020  01190x01195 
P  0412  XY8050  01192  0119ex 
P  03EE  XY8END  01175x01406 


00C9  YE8ZCN  00166X00813  00847 
007A  Y0FF8  00130X 
0020  ZBZT  00094X01327 

00A4  ZDZR  00137X00699  00718  01031  01326 
P  04AB  ZER032  01356X 

0077  ZSAVE  00173x01032  01128 
R  .  ,  ZMLE  00019X00695  01145 


o 


END 

FILMED 
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